(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    459697,      10143]
NotebookOptionsPosition[    433550,       9371]
NotebookOutlinePosition[    437085,       9470]
CellTagsIndexPosition[    436353,       9450]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 "Physicist's Introduction to ",
 StyleBox["Mathematica ",
  FontSlant->"Italic"],
 "6 "
}], "Title",
 CellChangeTimes->{{3.394579470096292*^9, 3.3945794805215673`*^9}, {
  3.395926278610983*^9, 3.3959262787251673`*^9}},
 FontColor->RGBColor[0, 0, 1]],

Cell[TextData[StyleBox["Third Edition 2007",
 FontSlant->"Italic"]], "Subtitle",
 CellChangeTimes->{{3.394579519605548*^9, 3.3945795336356897`*^9}, {
  3.394579849753665*^9, 3.3945798497607594`*^9}}],

Cell["PHYSICS 200", "Subtitle",
 CellChangeTimes->{{3.394579873314529*^9, 3.3945798826114264`*^9}}],

Cell[CellGroupData[{

Cell["Nicholas Wheeler", "Author",
 CellChangeTimes->{{3.39457972270331*^9, 3.3945797314311037`*^9}}],

Cell["REED COLLEGE", "Institution",
 CellChangeTimes->{{3.3945797341591387`*^9, 3.39457973632885*^9}, {
  3.394579793724296*^9, 3.3945797937303047`*^9}}]
}, Open  ]],

Cell["", "Text",
 CellChangeTimes->{{3.394580016736314*^9, 3.394580026314102*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.394580016736314*^9, 3.394580026561102*^9}}],

Cell[TextData[{
 "NOTE: The first editionof this material, written during the summer of 2000, \
was designed in the presumption that ",
 StyleBox["Mathematica ",
  FontSlant->"Italic"],
 "4 would be running on",
 StyleBox[" ",
  FontSlant->"Italic"],
 "Macintosh OS 9. By the summer of 2006 ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " had acquired new capabilities, and OS X had become commonplace. My 2nd \
edition, intended to take into account those developments, was written in the \
presumption that ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " 5.2 would be running on OS X version 10.4 or a comparable system."
}], "Text",
 CellChangeTimes->{{3.394580016736314*^9, 3.394580050806147*^9}, {
  3.3945801422986927`*^9, 3.394580206674231*^9}, {3.3945802628593817`*^9, 
  3.3945803180189543`*^9}, {3.394580349560506*^9, 3.3945803986598263`*^9}, {
  3.394580731027203*^9, 3.39458079244934*^9}, {3.394580857178791*^9, 
  3.3945809323363867`*^9}}],

Cell[TextData[{
 "Now ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " 6 has appeared, which has new capabilities, but has been stripped of many \
of the features most characteristic of  ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " 5.2. The differences are so great that notebooks written in 5.2 typically \
will not run (or at least will not run smoothly) on 6. I have been obliged to \
start once again, from scratch."
}], "Text",
 CellChangeTimes->{{3.394580016736314*^9, 3.394580050806147*^9}, {
  3.3945801422986927`*^9, 3.394580206674231*^9}, {3.3945802628593817`*^9, 
  3.3945803180189543`*^9}, {3.394580349560506*^9, 3.3945803986598263`*^9}, {
  3.394580731027203*^9, 3.39458079244934*^9}, {3.394580857178791*^9, 
  3.394580970284161*^9}, {3.394581007871481*^9, 3.3945810487235413`*^9}, {
  3.3945810787391033`*^9, 3.394581108663926*^9}, {3.3945811403194036`*^9, 
  3.394581224282379*^9}, {3.394581262007915*^9, 3.3945812620209723`*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.394581262223153*^9, 3.3945812622287416`*^9}}],

Cell["", "Text"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Laboratory 0",
 FontColor->RGBColor[1, 0, 0]]], "Subtitle",
 CellChangeTimes->{{3.394581250479834*^9, 3.394581255896365*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "Why Bother to Learn ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "?"
}], "Section"],

Cell[TextData[{
 "Until a few years ago my own response to that question would have been \
\"Why indeed? I became a physicist in order to learn some things about how \
Nature works, not things about v.6 of some proprietary \
software\[Ellipsis]described in a book thicker and heavier than any of my \
physics books!\" But the fact of the matter is that we probe Nature not with \
our bare hands, but with tools\[LongDash]man-made contrivances, whether we \
call them principles, theorems, analytical techniques or multi-channel \
analyzers. So the short answer is: Because ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " is a wonderful new tool\[LongDash]sharper and more broadly useful than \
most others that spring to mind, and remarkably easy to use."
}], "Text",
 CellChangeTimes->{
  3.3945884823832006`*^9, {3.394588515776514*^9, 3.394588515794959*^9}}],

Cell[TextData[{
 StyleBox["\n\t",
  FontFamily->"AGaramond"],
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", first released in June 1988, is a creation of Stephen Wolfram (born in \
1959).  It provides an almost exhaustive compendium of mathematical data and \
information, and a computing engine of such immeasurably broad potential that \
few can claim mastery of all its parts\[Ellipsis]which is why ",
 StyleBox["The Mathematica Book ",
  FontSlant->"Italic"],
 "is so thick, and why so much supplemental material (books, downloadable \
software) treating this or that special area of application have come into \
being. Let us therefore accept at the outset that our present objective must \
be a limited one\[LongDash]to gain a working familiarity with the elementary \
first principles of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", and some rough sense of its potential.  Refined procedures we agree to \
reserve for the day when the work at hand ",
 StyleBox["requires",
  FontSlant->"Italic"],
 " that we move beyond the basics, and lends urgency to the effort."
}], "Text",
 CellChangeTimes->{
  3.3945884823832006`*^9, 3.394588515776514*^9, {3.3945885828408012`*^9, 
   3.394588588714109*^9}, {3.394588639698522*^9, 3.3945886996770477`*^9}}],

Cell[TextData[{
 StyleBox["\n\t",
  FontFamily->"AGaramond"],
 "It will very soon become apparent to you that ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " is so powerful\[LongDash]and so easy to control\[LongDash]that it opens a \
door to quick-and-easy ",
 StyleBox["mathematical experimentation",
  FontColor->RGBColor[0, 0, 1]],
 " that until now has stood shut even to the greatest minds\[LongDash]a door \
to an entirely new and much more improvisatory way of thinking about and \
doing pure & applied mathematics.  You will find yourself in position to do \
things that formerly you would not even have dreamed of doing (certainly not \
of doing casually, without a lot of labor-intensive special-purpose \
programming), and that the formulation/testing of conjectures has come to \
occupy a central position in your mathematical life. "
}], "Text",
 CellChangeTimes->{
  3.3945884823832006`*^9, 3.394588515776514*^9, {3.3945885828408012`*^9, 
   3.394588588714109*^9}, {3.394588639698522*^9, 3.394588699659889*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Getting Started\[Ellipsis]and Stopped", "Section",
 CellChangeTimes->{3.3957840092322397`*^9},
 TextAlignment->Left,
 TextJustification->1.],

Cell[TextData[{
 "I begin with a cautionary word: It is inevitable that you will from time to \
time (and especially in the beginning) steer ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " off the road, and have to ",
 StyleBox["Restart",
  FontWeight->"Bold"],
 ".  To avoid catastrophy"
}], "Text",
 CellChangeTimes->{3.395784009232904*^9},
 TextAlignment->Left,
 TextJustification->1.],

Cell[TextData[StyleBox["Be sure that you have Saved open  documents running \
in other applications.",
 FontSize->16,
 FontColor->RGBColor[1, 0, 0]]], "Text",
 CellChangeTimes->{{3.394591008989142*^9, 3.39459104500974*^9}, 
   3.3957840092335873`*^9}],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " comes in two large and semi-autonomous packages:"
}], "Text",
 CellChangeTimes->{{3.3945913058299847`*^9, 3.394591305843693*^9}, 
   3.39578400923419*^9},
 TextAlignment->Left,
 TextJustification->1.],

Cell["", "Text",
 CellChangeTimes->{3.3957840092371693`*^9}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["\[Bullet] the computing engine itself, called the \
\"kernel\";", "Item3Paragraph"]], "Item1Paragraph",
 CellChangeTimes->{{3.394588975210185*^9, 3.394588976921069*^9}, {
   3.394591286865964*^9, 3.3945912868821497`*^9}, 3.39578400924193*^9},
 TextAlignment->Left,
 TextJustification->1.],

Cell[TextData[StyleBox["", "Item3Paragraph"]], "Item1Paragraph",
 CellChangeTimes->{3.395784009243037*^9}],

Cell[TextData[{
 "\[Bullet] the \"front end\", which mediates the flow of information between \
you and the kernel (or perhaps several kernels, running simultaneously on \
several computers). The front end manages screen display, graphics, access to \
the Documentation Center (which in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " 6 replaces the \"Browser,\" and is where one goes for assistance) and much \
else, and can perform certain tasks independently of the kernel; it was \
originally conceived and designed not by Wolfram himself, but by Theodore \
Gray.  "
}], "Item1Paragraph",
 CellChangeTimes->{{3.3945888678505697`*^9, 3.3945888713363447`*^9}, {
   3.394588988834098*^9, 3.394589000907104*^9}, {3.394589103269696*^9, 
   3.3945891760303307`*^9}, {3.394589231264044*^9, 3.3945892493681297`*^9}, {
   3.394589292190062*^9, 3.394589294270656*^9}, {3.3945912941164722`*^9, 
   3.3945912941265306`*^9}, 3.395784009243594*^9},
 TextAlignment->Left,
 TextJustification->1.],

Cell["", "Item1Paragraph",
 CellChangeTimes->{3.395784009244452*^9}]
}, Open  ]],

Cell[TextData[{
 "\tYou already have the front end running (may have turned it on by \
selecting and double-clicking ",
 StyleBox["Mathematica ",
  FontSlant->"Italic"],
 "6 in your Applications folder). To turn on the kernel and (more to the \
point) to ",
 StyleBox["establish communication between the front end and the kernel",
  FontColor->RGBColor[0, 0, 1]],
 " the traditional procedure is to type ",
 StyleBox["2-2", "Input"],
 " and hit ENTER:"
}], "Text",
 CellChangeTimes->{{3.3945896767550173`*^9, 3.39458967814644*^9}, 
   3.3945913405277653`*^9, 3.39578400924625*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", "-", "2"}]], "Input",
 CellChangeTimes->{{3.39458939848449*^9, 3.394589398891244*^9}, 
   3.395784009247507*^9}],

Cell[BoxData["0"], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.394589408007695*^9, 3.395778015890663*^9, 
  3.395784009248708*^9}],

Cell[TextData[{
 "NOTE: The traditional procedure is to type ",
 StyleBox["2+2", "Input"],
 ". The advantage of my eccentric ",
 StyleBox["2-2", "Input"],
 " procedure is that it can be done with one hand, without use of the SHIFT \
key."
}], "Item1Paragraph",
 CellChangeTimes->{{3.3945913814025717`*^9, 3.394591444088578*^9}, 
   3.394591489690185*^9, 3.395784009258068*^9},
 TextAlignment->Left,
 TextJustification->1.,
 FontColor->RGBColor[0, 0, 1]]
}, Open  ]],

Cell[TextData[{
 "That took several seconds\[LongDash]a long time by the standard to which \
you will become accustomed, because the kernel is fat. Note that, while the \
kernel was performing its work your input acquired an ",
 StyleBox["input number",
  FontWeight->"Bold"],
 ", and the output (when at last it appeared) was assigned a corresponding ",
 StyleBox["output number",
  FontWeight->"Bold"],
 ". "
}], "Text",
 CellChangeTimes->{{3.3947188680114202`*^9, 3.394718871083702*^9}, 
   3.39578400926031*^9}],

Cell[TextData[{
 "\tTo experience the often blinding speed of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", try"
}], "Text",
 CellChangeTimes->{3.395784009261506*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"1000", "!"}]], "Input",
 CellChangeTimes->{3.3957840092625933`*^9}],

Cell[BoxData[\
"40238726007709377354370243392300398571937486421071463254379991042993851239862\
902059204420848696940480047998861019719605863166687299480855890132382966994459\
099742450408707375991882362772718873251977950595099527612087497546249704360141\
827809464649629105639388743788648733711918104582578364784997701247663288983595\
573543251318532395846307555740911426241747434934755342864657661166779739666882\
029120737914385371958824980812686783837455973174613608537953452422158659320192\
809087829730843139284440328123155861103697680135730421616874760967587134831202\
547858932076716913244842623613141250878020800026168315102734182797770478463586\
817016436502415369139828126481021309276124489635992870511496497541990934222156\
683257208082133318611681155361583654698404670897560290095053761647584772842188\
967964624494516076535340819890138544248798495995331910172335555660213945039973\
628075013783761530712776192684903435262520001588853514733161170210396817592151\
090778801939317811419454525722386554146106289218796022383897147608850627686296\
714667469756291123408243920816015378088989396451826324367161676217916890977991\
190375403127462228998800519544441428201218736174599264295658174662830295557029\
902432415318161721046583203678690611726015878352075151628422554026517048330422\
614397428693306169089796848259012545832716822645806652676995865268227280707578\
139185817888965220816434834482599326604336766017699961283186078838615027946595\
513115655203609398818061213855860030143569452722420634463179746059468257310379\
008402443243846565724501440282188525247093519062092902313649327349756551395872\
055965422874977401141334696271542284586237738753823048386568897646192738381490\
014076731044664025989949022222176590433990188601856652648506179970235619389701\
786004081188972991831102117122984590164192106888438712185564612496079872290851\
929681937238864261483965738229112312502418664935314397013742853192664987533721\
894069428143411852015801412334482801505139969429015348307764456909907315243327\
828826986460278986432113908350621709500259738986355427719674282224875758676575\
234422020757363056949882508796892816275384886339690995982628095612145099487170\
124451646126037902930912088908694202851064018215439945715680594187274899809425\
474217358240106367740459574178516082923013535808184009699637252423056085590370\
062427124341690900415369010593398383577793941097002775347200000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000000000000000000000000000000\
0000000000000000000000000000000000000000000000000000000000000000000000000"], \
"Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.3945916447191277`*^9, 3.395778028872423*^9, 
  3.395784009272262*^9}]
}, Closed]],

Cell["", "Text",
 CellChangeTimes->{{3.395793969724391*^9, 3.395793969733729*^9}}],

Cell[TextData[{
 StyleBox["REMARK",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 ": If you SELECT the bracket that embraces both input and output, and then \
",
 StyleBox["double-click",
  FontWeight->"Bold"],
 ",",
 StyleBox[" ",
  FontWeight->"Bold"],
 "the output will disappear from view and a down-pointing arrow will appear \
on the right. Select and double-click again to make the output reappear. Try \
it!"
}], "Text",
 CellChangeTimes->{{3.3957936820690517`*^9, 3.395793746446546*^9}, {
  3.39579382692837*^9, 3.39579394805239*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.395793978053739*^9, 3.3957939780656853`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", "x"}], ")"}], "^", "100"}], "]"}]], "Input",
 CellChangeTimes->{{3.394591763481083*^9, 3.394591763613484*^9}, {
   3.394595627491391*^9, 3.3945956278558073`*^9}, 3.395784009273849*^9}],

Cell[BoxData[
 RowBox[{"1", "+", 
  RowBox[{"100", " ", "x"}], "+", 
  RowBox[{"4950", " ", 
   SuperscriptBox["x", "2"]}], "+", 
  RowBox[{"161700", " ", 
   SuperscriptBox["x", "3"]}], "+", 
  RowBox[{"3921225", " ", 
   SuperscriptBox["x", "4"]}], "+", 
  RowBox[{"75287520", " ", 
   SuperscriptBox["x", "5"]}], "+", 
  RowBox[{"1192052400", " ", 
   SuperscriptBox["x", "6"]}], "+", 
  RowBox[{"16007560800", " ", 
   SuperscriptBox["x", "7"]}], "+", 
  RowBox[{"186087894300", " ", 
   SuperscriptBox["x", "8"]}], "+", 
  RowBox[{"1902231808400", " ", 
   SuperscriptBox["x", "9"]}], "+", 
  RowBox[{"17310309456440", " ", 
   SuperscriptBox["x", "10"]}], "+", 
  RowBox[{"141629804643600", " ", 
   SuperscriptBox["x", "11"]}], "+", 
  RowBox[{"1050421051106700", " ", 
   SuperscriptBox["x", "12"]}], "+", 
  RowBox[{"7110542499799200", " ", 
   SuperscriptBox["x", "13"]}], "+", 
  RowBox[{"44186942677323600", " ", 
   SuperscriptBox["x", "14"]}], "+", 
  RowBox[{"253338471349988640", " ", 
   SuperscriptBox["x", "15"]}], "+", 
  RowBox[{"1345860629046814650", " ", 
   SuperscriptBox["x", "16"]}], "+", 
  RowBox[{"6650134872937201800", " ", 
   SuperscriptBox["x", "17"]}], "+", 
  RowBox[{"30664510802988208300", " ", 
   SuperscriptBox["x", "18"]}], "+", 
  RowBox[{"132341572939212267400", " ", 
   SuperscriptBox["x", "19"]}], "+", 
  RowBox[{"535983370403809682970", " ", 
   SuperscriptBox["x", "20"]}], "+", 
  RowBox[{"2041841411062132125600", " ", 
   SuperscriptBox["x", "21"]}], "+", 
  RowBox[{"7332066885177656269200", " ", 
   SuperscriptBox["x", "22"]}], "+", 
  RowBox[{"24865270306254660391200", " ", 
   SuperscriptBox["x", "23"]}], "+", 
  RowBox[{"79776075565900368755100", " ", 
   SuperscriptBox["x", "24"]}], "+", 
  RowBox[{"242519269720337121015504", " ", 
   SuperscriptBox["x", "25"]}], "+", 
  RowBox[{"699574816500972464467800", " ", 
   SuperscriptBox["x", "26"]}], "+", 
  RowBox[{"1917353200780443050763600", " ", 
   SuperscriptBox["x", "27"]}], "+", 
  RowBox[{"4998813702034726525205100", " ", 
   SuperscriptBox["x", "28"]}], "+", 
  RowBox[{"12410847811948286545336800", " ", 
   SuperscriptBox["x", "29"]}], "+", 
  RowBox[{"29372339821610944823963760", " ", 
   SuperscriptBox["x", "30"]}], "+", 
  RowBox[{"66324638306863423796047200", " ", 
   SuperscriptBox["x", "31"]}], "+", 
  RowBox[{"143012501349174257560226775", " ", 
   SuperscriptBox["x", "32"]}], "+", 
  RowBox[{"294692427022540894366527900", " ", 
   SuperscriptBox["x", "33"]}], "+", 
  RowBox[{"580717429720889409486981450", " ", 
   SuperscriptBox["x", "34"]}], "+", 
  RowBox[{"1095067153187962886461165020", " ", 
   SuperscriptBox["x", "35"]}], "+", 
  RowBox[{"1977204582144932989443770175", " ", 
   SuperscriptBox["x", "36"]}], "+", 
  RowBox[{"3420029547493938143902737600", " ", 
   SuperscriptBox["x", "37"]}], "+", 
  RowBox[{"5670048986634686922786117600", " ", 
   SuperscriptBox["x", "38"]}], "+", 
  RowBox[{"9013924030034630492634340800", " ", 
   SuperscriptBox["x", "39"]}], "+", 
  RowBox[{"13746234145802811501267369720", " ", 
   SuperscriptBox["x", "40"]}], "+", 
  RowBox[{"20116440213369968050635175200", " ", 
   SuperscriptBox["x", "41"]}], "+", 
  RowBox[{"28258808871162574166368460400", " ", 
   SuperscriptBox["x", "42"]}], "+", 
  RowBox[{"38116532895986727945334202400", " ", 
   SuperscriptBox["x", "43"]}], "+", 
  RowBox[{"49378235797073715747364762200", " ", 
   SuperscriptBox["x", "44"]}], "+", 
  RowBox[{"61448471214136179596720592960", " ", 
   SuperscriptBox["x", "45"]}], "+", 
  RowBox[{"73470998190814997343905056800", " ", 
   SuperscriptBox["x", "46"]}], "+", 
  RowBox[{"84413487283064039501507937600", " ", 
   SuperscriptBox["x", "47"]}], "+", 
  RowBox[{"93206558875049876949581681100", " ", 
   SuperscriptBox["x", "48"]}], "+", 
  RowBox[{"98913082887808032681188722800", " ", 
   SuperscriptBox["x", "49"]}], "+", 
  RowBox[{"100891344545564193334812497256", " ", 
   SuperscriptBox["x", "50"]}], "+", 
  RowBox[{"98913082887808032681188722800", " ", 
   SuperscriptBox["x", "51"]}], "+", 
  RowBox[{"93206558875049876949581681100", " ", 
   SuperscriptBox["x", "52"]}], "+", 
  RowBox[{"84413487283064039501507937600", " ", 
   SuperscriptBox["x", "53"]}], "+", 
  RowBox[{"73470998190814997343905056800", " ", 
   SuperscriptBox["x", "54"]}], "+", 
  RowBox[{"61448471214136179596720592960", " ", 
   SuperscriptBox["x", "55"]}], "+", 
  RowBox[{"49378235797073715747364762200", " ", 
   SuperscriptBox["x", "56"]}], "+", 
  RowBox[{"38116532895986727945334202400", " ", 
   SuperscriptBox["x", "57"]}], "+", 
  RowBox[{"28258808871162574166368460400", " ", 
   SuperscriptBox["x", "58"]}], "+", 
  RowBox[{"20116440213369968050635175200", " ", 
   SuperscriptBox["x", "59"]}], "+", 
  RowBox[{"13746234145802811501267369720", " ", 
   SuperscriptBox["x", "60"]}], "+", 
  RowBox[{"9013924030034630492634340800", " ", 
   SuperscriptBox["x", "61"]}], "+", 
  RowBox[{"5670048986634686922786117600", " ", 
   SuperscriptBox["x", "62"]}], "+", 
  RowBox[{"3420029547493938143902737600", " ", 
   SuperscriptBox["x", "63"]}], "+", 
  RowBox[{"1977204582144932989443770175", " ", 
   SuperscriptBox["x", "64"]}], "+", 
  RowBox[{"1095067153187962886461165020", " ", 
   SuperscriptBox["x", "65"]}], "+", 
  RowBox[{"580717429720889409486981450", " ", 
   SuperscriptBox["x", "66"]}], "+", 
  RowBox[{"294692427022540894366527900", " ", 
   SuperscriptBox["x", "67"]}], "+", 
  RowBox[{"143012501349174257560226775", " ", 
   SuperscriptBox["x", "68"]}], "+", 
  RowBox[{"66324638306863423796047200", " ", 
   SuperscriptBox["x", "69"]}], "+", 
  RowBox[{"29372339821610944823963760", " ", 
   SuperscriptBox["x", "70"]}], "+", 
  RowBox[{"12410847811948286545336800", " ", 
   SuperscriptBox["x", "71"]}], "+", 
  RowBox[{"4998813702034726525205100", " ", 
   SuperscriptBox["x", "72"]}], "+", 
  RowBox[{"1917353200780443050763600", " ", 
   SuperscriptBox["x", "73"]}], "+", 
  RowBox[{"699574816500972464467800", " ", 
   SuperscriptBox["x", "74"]}], "+", 
  RowBox[{"242519269720337121015504", " ", 
   SuperscriptBox["x", "75"]}], "+", 
  RowBox[{"79776075565900368755100", " ", 
   SuperscriptBox["x", "76"]}], "+", 
  RowBox[{"24865270306254660391200", " ", 
   SuperscriptBox["x", "77"]}], "+", 
  RowBox[{"7332066885177656269200", " ", 
   SuperscriptBox["x", "78"]}], "+", 
  RowBox[{"2041841411062132125600", " ", 
   SuperscriptBox["x", "79"]}], "+", 
  RowBox[{"535983370403809682970", " ", 
   SuperscriptBox["x", "80"]}], "+", 
  RowBox[{"132341572939212267400", " ", 
   SuperscriptBox["x", "81"]}], "+", 
  RowBox[{"30664510802988208300", " ", 
   SuperscriptBox["x", "82"]}], "+", 
  RowBox[{"6650134872937201800", " ", 
   SuperscriptBox["x", "83"]}], "+", 
  RowBox[{"1345860629046814650", " ", 
   SuperscriptBox["x", "84"]}], "+", 
  RowBox[{"253338471349988640", " ", 
   SuperscriptBox["x", "85"]}], "+", 
  RowBox[{"44186942677323600", " ", 
   SuperscriptBox["x", "86"]}], "+", 
  RowBox[{"7110542499799200", " ", 
   SuperscriptBox["x", "87"]}], "+", 
  RowBox[{"1050421051106700", " ", 
   SuperscriptBox["x", "88"]}], "+", 
  RowBox[{"141629804643600", " ", 
   SuperscriptBox["x", "89"]}], "+", 
  RowBox[{"17310309456440", " ", 
   SuperscriptBox["x", "90"]}], "+", 
  RowBox[{"1902231808400", " ", 
   SuperscriptBox["x", "91"]}], "+", 
  RowBox[{"186087894300", " ", 
   SuperscriptBox["x", "92"]}], "+", 
  RowBox[{"16007560800", " ", 
   SuperscriptBox["x", "93"]}], "+", 
  RowBox[{"1192052400", " ", 
   SuperscriptBox["x", "94"]}], "+", 
  RowBox[{"75287520", " ", 
   SuperscriptBox["x", "95"]}], "+", 
  RowBox[{"3921225", " ", 
   SuperscriptBox["x", "96"]}], "+", 
  RowBox[{"161700", " ", 
   SuperscriptBox["x", "97"]}], "+", 
  RowBox[{"4950", " ", 
   SuperscriptBox["x", "98"]}], "+", 
  RowBox[{"100", " ", 
   SuperscriptBox["x", "99"]}], "+", 
  SuperscriptBox["x", "100"]}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.394591655526395*^9, 3.394591767748187*^9, 
  3.394591815294029*^9, 3.394595636234592*^9, 3.395778035416008*^9, 
  3.395784009278789*^9}]
}, Open  ]],

Cell[TextData[{
 "That was fast. Some calculations, of course, take longer\[LongDash]maybe \
much longer. Occasionally it is of interest to know ",
 StyleBox["how long",
  FontSlant->"Italic"],
 " it took ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to perform a given calculation. To provide that information, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " provides the command ",
 StyleBox["Timing", "Input"],
 ". To learn about that command one proceeds as one proceeds to learn about \
",
 StyleBox["any",
  FontSlant->"Italic"],
 " command: enter the command"
}], "Text",
 CellChangeTimes->{{3.3947183581260433`*^9, 3.394718490789*^9}, {
   3.3947185221629553`*^9, 3.3947185875652523`*^9}, 3.395784009279855*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Timing"}]], "Input",
 CellChangeTimes->{{3.394718596367695*^9, 3.394718596947288*^9}, 
   3.39471864956108*^9, 3.395784009280912*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\!\(\*RowBox[{\\\"Timing\\\", \\\"[\\\", \
StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\"]\\\"}]\) evaluates \!\(\*StyleBox[\\\
\"expr\\\", \\\"TI\\\"]\), and returns a list of the time in seconds used, \
together with the result obtained. \"\>", "MSG"], " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Timing"]}]], "Print", "PrintUsage",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.395778046050097*^9, 3.3957840092874928`*^9},
 CellTags->"Info3395752844-3533612"]
}, Open  ]],

Cell[TextData[{
 "To obtain more detailed information, and to see examples, double click on \
the ",
 StyleBox["\[GreaterGreater]",
  FontColor->RGBColor[0, 0, 1]],
 "."
}], "Text",
 CellChangeTimes->{{3.394718739293346*^9, 3.394718783760191*^9}, {
   3.394756647842813*^9, 3.394756659618723*^9}, 3.395784009295542*^9}],

Cell["", "Text",
 CellChangeTimes->{{3.39578506026219*^9, 3.395785060270114*^9}}],

Cell[TextData[{
 "To illustrate use of the ",
 StyleBox["Timing", "Input"],
 " command I provide now an example of a calculation that takes about 15 \
seconds to perform. Notice that while the Kernel is busy with the calculation \
the word ",
 StyleBox["Running", "Input"],
 " appears at the top of the page. If you enter additional commands while the \
Running flag flys, the Kernel will read/execute them in sequence after it has \
completed its present work. "
}], "Text",
 CellChangeTimes->{{3.394718942611347*^9, 3.394718968523223*^9}, {
   3.394718999192264*^9, 3.394719041796159*^9}, {3.395780595797649*^9, 
   3.3957806386244087`*^9}, {3.395780670057061*^9, 3.3957807816751223`*^9}, {
   3.395781062021299*^9, 3.3957811267765217`*^9}, {3.3957811638549223`*^9, 
   3.395781177861383*^9}, {3.395781263970118*^9, 3.395781264935614*^9}, 
   3.395784009296173*^9, {3.395784220762952*^9, 3.395784282954311*^9}, {
   3.395785073385461*^9, 3.395785102060019*^9}, 3.395785132448965*^9, {
   3.39578516441509*^9, 3.395785208386732*^9}, {3.395785238399308*^9, 
   3.3957852416996517`*^9}, 3.39579277313408*^9, {3.395792929592667*^9, 
   3.3957930779606743`*^9}, {3.3957931120045977`*^9, 3.395793211421945*^9}, {
   3.395835135435814*^9, 3.395835137328555*^9}, {3.395835170530241*^9, 
   3.3958351950272818`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"cornu", "[", "t_", "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     SubsuperscriptBox["\[Integral]", "0", "t"], 
     RowBox[{
      RowBox[{"Sin", "[", 
       SuperscriptBox["u", "2"], "]"}], 
      RowBox[{"\[DifferentialD]", "u"}]}]}], ",", 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "0", "t"], 
     RowBox[{
      RowBox[{"Cos", "[", 
       SuperscriptBox["u", "2"], "]"}], 
      RowBox[{"\[DifferentialD]", "u"}]}]}]}], "}"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"Evaluate", "[", 
     RowBox[{"cornu", "[", "t", "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", 
      RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], "//", 
  StyleBox["Timing",
   FontColor->RGBColor[1, 0, 0]]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"15.398640000000057`", ",", 
   GraphicsBox[{{}, {}, 
     {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwUm3lcTV0UhqNEoyZK8yA0ECVFpJQkaRZFaVY0UohEkUozShSVokmDIk2s
RJQiqZCme89wbyWKpEl86/vLbzvn3nP2Xmu97/MqNgFuCp4cHBwLOTj4bv7/
JxAl/umO7nuA3HqU0PSVB6LlVERMcyeQIg2jIxq6QIy4/b7+YjUQo131iVPX
gVz68O1CRz8gWnUO/Ew7CqRul2HEBRsgSn04VD+cB9JTXe154R8g0j6ZOrpt
BfL6Uq/fPm1AXOq98qN8H5Av33jGGxYAcbomi9+ME8jfd+lpxWQgjt9h7899
DdSaL89k5+/iOqeq0HAeKMeKisSnx/H+5wKSRiuBivOzyE84i99HlaoMM4Cq
ta4go8vxef1Jy1TxOqvUIle6G9/HK8PopC7QS3vPGqfR+L7KrZ5zmkBrb/ve
ueYn7qfkSsWXMqDtTeeNmnD/IuEel5XLgT5+IZsjWRDPY8lE0ZkbQMee3Xrs
x3ogvcv57gyKAX2LVOK2KgTyRquo62w40PdPPZ9xZgLZXBBz50cT0A8EL0/K
SwE5m5yTLOQGdPE1vwi9eKDUmzljmi8AfY9HVyl7FVDOVy/2xeD3pcfa/iss
AipJe6hx5DnQl42OdLz7C9TTP1lfqQCg/cOSvb6EAzWi61L6TwJo68S9A+q/
gRY1LpeN5AJag161xkAEaN3Ybc1px4Hm+bfQ8KgC0A5hQtcE3gDF8DHP4RkC
OiT37GCmBFCVzz5r2f8AOv7GR04RfO6lezcmJXGfd7hGBCfGgbJt0xjhYwFd
WCw3+UEFKAW2930XY6DLXParm64FcqwsiaOtD9dCQQKvcP20v6X2ySqgC57G
hl7Gc0hQCeBQrwM683y/uVsRkM473ZPPOAB9Jepw3PFiIDf0J6idTAX6hNC/
bettgVxy3TV66BTWITRH8NkbIEiOW3eObcM6rXk/acQHxPNiibNkJNbx5vq5
DhKIe/zTK849xzrbFTsuEgMiIYEelhIDquanf2O8DBBnIx8OGnJgn4jVp2zH
vgxQV3mT9AL7yCtF8p8zEN5V2xpUT2Gf3VzXL7gS1zpBVqZY79+uqXkS2Jd+
5RmSh02wT0O+zw1/ASKUf2KzHAvIa1dmLFUIIK4oBgy+7wfSw/qsSLk7ENkV
/t4NVkDqnHitaozPrz96n1N9EEiBawe9VnQA0cdyUdXEeWGb5FwJqQRyQdnP
FV4tQDQt//La1BpI1R1BV/UCgcgP3zrQtBlIe747oaOeQCSydp05ZAfkJb9Z
ZTd/3Nf9/QekFYB89IIrxagJCP+FYSIxLkCynG6YWZYC4aV6fW/rHFAS8fv8
owWA8NhcKXJqBiizzNUTkWa4T+33oqexr85+ebpjhynO19IXiY58QBXf5Nza
ifuIyE3wUlIFqo/Ky5o7CkR6PatIsAdo3s/R9aNLgXj8Tc607A7QGx9/5XHo
BeJzTYaxbQj2WXvQ5IUqIDmSi7qsLgMdGkeXlOwAUr11boJDBuhr3nc+VfsC
eajSOVr3Gs7LXGK3zCiQSefb1x7WArryF+PRVQrP27kuDZSArpVXqx9Xw/kJ
OZ7drgJ0jaeWpWs/UOuphw8c8frD5g0NezcB5dVmcHi4Buhcn5KSg61AZVjE
ETvxeYlRvXol74B6e12zRvkK9tmJ+ItpL4H60368y+wD0DZ3q3SmTgO9Zvsx
sg7nS/1W0i7Je0Bbaq1hbZMEesGU7Yu9g0AH8XsMzE8D1XnkUZvqY6ATDP99
8KwGKqeII8iQxue6SV4q7QTKL1YgbRx1o1L0/cSerUDpfJ5ufFEMdL1EgkxN
DFALToDjtwdAPzP/5nF6HZCt2q+tf/2/r0K9yyLvgUyddT12ez3QpYYn+OKl
gXRLt9uh0YrzY/wJ7JNwXgbOTdD7gL44L5vgygCSK/nmcAYbaM+36gy/K0D0
euicpVEPdmgEawrgPFTNf3OqxnNdUfmDZ2sSEDe+dxVsx32Mzn/kWR8GRHjF
vnXnXwFV3zD6g3UaiGMP9nidfwJU7LPqWPMAIA6vTnw2UgKU3Qt3s9L1QDjY
9RfyLQRK9m50gDP2maOZ5t9n8kAOafV7TN4Ewm3h5YaOKSArLAeEI9SBCHSa
PSuO+niuzeuQcCsQUYoBYwJmQO4J9bGyRB/J+hO9cAJ1QFrm6aA96nTDhb+H
BySAGA8Wqyb4gWCtCyzu70IfWqPIoXMSSKEAr6+oc8T9rkX10nNA6mc+savE
eYqd/9P51gnIQI5VzwXQP04sd998sRTI3E+Gc9uwP91OCl5NCASyx9790Ggx
EAecFu+IvgLU0uLPGZ/DgbD7kWe4qxIoE05p/aFEvG7Af2PpY5yPmOUcK3bh
57fIvdZ5ClTZ0X3OCXY4L09e9sEJ1FPG5q6NOD+xp+5sPYx1X6ry56Iyzv19
edkvXSuB3nw96ekvXyCaDf4s+HEb6MNhu1HhgRizmwzajH5xwdJSolsMSMkX
ox6LM4HOSKq2+ozvuZs2oNqx78q73S+o6AMZtvDYxw0lQEP78de5XECWO7Qa
BVJAN+/053D6iXOvkNr37RbQbyQWHWzqAUr6ygjXQ/SPJsPjATy5QNm8HA1L
QD+q6T75sUEcqOh/I7nGfqjTHDOSDxWBqgsM1p3tAjqZx/B7jRf2h41LL/ET
6OAAnjXuy4AW53ywN2AMaLvVvz+4Yv/rmxVZPHJEv8kamnrpCbTrvcIsQJ9Y
bHXbPv8s7it7i27oLqB6G0QiXuL33urKVet2A6okvPGEAif6xbdVsjexj84p
199XxPmAe/wn+PyA2mN3X0OiF+iWlrOLystQv8ruJz2bBfrdFl7JRBJIut90
yxj6W9uwHCWUCmTlJdtuzt24zz7+nswwICN3l+wwzcJ9qg4z2x4BafNuc0Sk
DtD5HJvlV28EUvlB1yoHfF5Sutl8nRUQc6cPLg7WQF0w8Hl5fQMQXTUfnVvQ
H232veuXXQXEw+8vNOVRV9Yae3pvGADiWnSUczH6LFeUc6KzK/oBi1s82Ruo
z7czj7l7A+F56KJAGPZVkdT0zM8DQNirp7Tb6AIVesP/nbU1EOaXHY15sD67
SlSadCyBMI3h9RwaAUrs72VBEzcgzLZdKuIzAJLQ4Fplcg0I6+zdsOIMkGWE
rq/jNyCcb9xOONkGZHhN/d8mA5yvaVbezWVAWtqqn8qtASImxiSaswBIRRO1
6d5CIPJmvK+24HtPK16p7ndBnxm/dLPxNhAd/mE/ls4D8ZUzJbPhf17Lmyp+
ZAykaF3eFWH02eSNmmcPY99tTzvpOLcOiJNhtrleR4D0X8J/6gDqiOs7s4Lo
KCDvhJ0j1fF+m6N99wqwPu8d2n1k0BdNI2ipTl6gOBcwnnDPAmG84a1pth5Q
2l0eOkWTQOyM1nOKRJ32Xt/r/Ap1wzxsVv/RRaBunk6RrGPh/P1ZUZ+Bfdki
FL9BVwOIo30mMRr2QP12PxH0ajH6E3UguGAn0PKkE7PwCBC3W8XGg8eBNuWL
tWjE73umq/jPA+fhmOtPkeMKQBBNa30e3kXuOP1ad6sKkLz/NHYrrQA6b6zq
URty6KYjrGxTK/SbEIFB8x/o56e8N++uxXl6VTTGj/N4/XZ7sXIG0N0V9Z93
6QH5aif38iME0L0SlpH5AkBOf7j5fc8OoL+w707f2QeUWmHOjOF2vF/R/OOa
X8h36vcyg05gX/cq0Zm+yHdw6cI46nyN9u8LCy2Agpb9ZaID6CNH+IenUZ+/
VZkcWoY8GFMReslOFmiJGdNPwSTQPsc263+KA9pQoGvXkwKgd/5cvbtwKep/
6FGdQWGgZR+9juozADrq7eL9SfeA+qX2tcTsJNA59/225SC/vfqic/3/96h+
aHQyzh+oG2axOzcI4j4L+B9I2aKPCu6en28A+pPdNwO/eqA21opLGbsAPXA2
cNbAGqiFI8U/nqBPMuwCjT6j7ndsOFNejz7c13vSreImkNlyRyI/NgPdJXX1
tvZu1GMjJdV0S6BfaaiaVVsAuWN1olA3+lXl9jvnMsuBXG6z5kjaMOrepVfX
232A+GZ47aM4Pv+8sWFYXz0Qr31VWSW8QDu/z+rXxP6+p1+xhhvruiXGp1cp
BYhoqVU5um+BFunmvHASucZv/4M+KeScIZUTaz/yYh9ty/WUxj6sWyDQYTyC
fbmkV6teFnlwgL9fEvt4K2tqXgHP5aCpyEZH9JtNv2fmTLHvVN7c8f2A/rnJ
9OfmC3eBnJo4x1pdC8SWfubsi0msv/UGE6932Nf5Tdao72Rq0L7xHzNA2MY2
x7hgPvAcFOUE9NcjB/JDfLG/dBWSrOaigTjfqx3snQskf21wQZM0EJmt/BvD
7YGgVl5K34d9+rT7sNaDGOzfDzuuiKIeERk/rCeysL/Vq749zMK+rVJJ3Ig+
ff6qxXPDO0BqVxgVd2oj7+37ck7PB0j35Td1HlSgbjwt425Dn7jq9k9ZnAeI
HQtHWMeRz1+IbOThxfnRsWKmmUQC+SvD8UNmHxAbXpaa+50BatWJc03CmIc2
+I5t9J0C6sDSZd5fsC6bdhemVYsCFUMmrXLKBcLA3H52kSdQ1d7tJk3IzZYH
JD9pKSGHSxapuzUA4b5DfnFPJdDCZ6wei2oir36QLvLFum9ZWkz1RCBPNs6+
k0AdPnw0b606znfNi9zu4L1AR6y0oo99BWLg1Kji82+YQxj8Hf3o49yhmXvu
4LxUm/uyQ/AcNjhcb8o3BPrtyuUfGkwxV+QsqfWbBLp/XcgqkzzMHR/aTmWj
Xw4Z7Dr17haQz3wrn1t8Avr7VgHJR98xtwz9Wd2qBvSYyO4kNRHMNQA+h1YD
PfL8roo27tvW26en5hzQTPuu/lobzEUH179yYAL9YTQm8SLq/SORSx9L5dG3
iqbSyAygCP6wM74L0WdehzRoo+8KtGmm5koBHXexc/Xyd0Bv6l3WKIK+eWzt
7d/5yL2H3qwsvYF5cJfMTu1bOD/ntcQOD2A+lXsst945EOjbNU4H1skBNeli
b1sShvvmU/+toQ5Ucwpc2VmE+yZ0i/dinkMxP2IbDPQgVxBH7T+gfIJsrxsH
Af3V+OpTxVSgdOUFpTdjTvwZeb135hJQ3LYupk/Qx38V//SucgWyK3ngw2nM
hz/q2iv3XkZecqpZJ7AJ6OHa2apezP0Bmz8P7JlDnfNNiVKrxhz8p/SITjzQ
rwO/3fOqx1xjZG+/Igd5dfGnhbkmQDDulkmqIHcnRYzmjI4B8eReUluJHdC+
22/cqUDfudoq37Ed859x2Tvzs7uRo6IO6smj36+wKH7YhT60X6fS5ck6zLe5
jKUBeL+h9s8QAvWyxuBfajDOxfoXO44J1AAVBY9eTTwEYpWwf3HwcaCsoG+/
0RAQCgYHi82RXyXp5Msyv4BQdKqKCVIHkvqkqiyJfKni0W/5jQf9VG/bxSh8
v036/95kyQJ5pupmmClyoumL04sU7wG5a8TircV7IFyqHWQ8MGeJBzVVx1NA
nOvU3FqL8zjMYD/OQn/NquXkGcP5gEa38guYD19xOe8VLwHiZhrvlMMJ5Nit
VTPyr4E41e6SrNIFpAyzc9839HXHrq26DjZAWni7ZqjgvnbM5b9tQ1+P2Fow
nm2E+4yn7TLrgHz80vrcYDkQSs/ydUqRd766bJtm4PxJV519rY0cp+AfOEti
jpWK8TvgUAjU/j3Te4jDQMhv+vSaA/NbvP1nq4UTQKhWnDj1QBt9ZuxHu8RF
1LEvqfum84D6Edbna3kVCKtzd0seHUA/9Sm3eYs6e8zhiZLXDNDmqjVf2hcA
ESdzJvzMM+RBfRHda6gXZT5KfppbgU5fK3F3UxQQn9pzRwLcgX6S8Pr5vDmQ
nJ/mTl/MxnnhJJ9lPAZS82/Rn8U4X2zD+ew4zDEeT3bmr2gDeop3t2sx5u10
f8kVzjbAWqBhfOHbBJBvY79nruEB1qLralFhyIGcfq3a262AxbV2W5CNPlCb
z7StzWUA/edfW030QaAChKcyJ9BHxhVlxvWlgMpNE0pIwO/vrxMb7MQc9tHP
zYVlhD604KHXV9SRxZzn9c8grxdudRq7/Bdz7JvR2DzkiegG4YF5V9Ql/epb
eZh3XcfMPov9QT8lJ42zkR90dRmSenhfwR5Rvnb8fr7llWWNF/F7hVfYDmBe
6OXfeVrpM/olo3orqxSognvqPtfxvX6e2HDImAVU8Ikz95cnAosjReyPB/LP
dkFhTVYJsHhEPgh3JQPFIzi0M9ECWHxM8Qzpo0B2CltrOGcAa8kkd5FREJC3
yzdNcefg5w9sZIp7Aelzya1gOebXnyvPV2RfAVJHsdmMfwE+/+JDI6k0IBdL
Ms2tkUuaSqd3sLHOPZMrFv49gzr1feOdDOTJ8g2WKaOoo1E3pPbdaQPiys5T
DnH4vof5N+p0YF8ffXLiXx36uU6RVf7Vfajz6nln1+1HfXOVNjjwGH1kaJng
GgJz0E2rXioWCGXFVWUrmoF6+Dxh0Z01QIgvWbpE7wBQEXv1963+C4RAXXDq
DPapZWVE6ClzIHhsVuf7nAJKxm+2BUZx3T1ddwVz3shU0bbqpUAsNX7gtwRz
cnXr08pnmBdXJPN3e94GMtrDw8cYfW7NHYklD2qA3L/5/oVHmKu27t7DFb0B
yDUNRocH9DDXuS5RqWEA8cf7ZsbOLcjLRRLLfqMufLidsShWDjl30Ohk0E4g
il+023+/AcSjCi5NKX3kaN0j1W4dmKdbzZdFor96W3launIDuajNeXYL+p35
/q7H13Swry2fbd7ABmJjiryQnQiQLiNKIm5aqEMbQw1/Iy+nqEWlHsFzFwlw
Cjo9D2Rj9tpzX5GHl3ho0lUZ6L8dbzzOPgWCU3XB2NswoFabJqdfx3Nc2Lbb
mQ91zyF+/8TxV0AsNvte8vo0cotyzS/7AiCEbu0e+5yEXJOlHn4NuUE2d6+w
zwbUzcvLs9LxXDcYNc0eBsxtx/o+iaihrlnUPuJCHzJkEcHfUW/c4wcSkzCH
+Vw712C5CYjIp3KcZqjziWJ9z14jx9xLNel9woM5bdnnTEfcT2vj418JqNtt
ux8T3FjXX1/VXrV0A037tn9ZsANI+ZK71dfngZ7dufaxRibqWu4WsZ+mwOLN
5dg6gPMd7qJ+zOslsJa7Ll7mtB/1N/g9R2UqsGQ8+jpOVwHJ9L/Ddq8AllyW
iq2RHVCiPcZmXjgHMny1Wm3IZybbH/iZqgFr2cOINa7oe6fXilGf8H6eu6fT
b3cDVbhOMnlxLtDTc/6dQ/yYxzoayTvoqyRZnTiHOZa7KFztHI2cG98aW4Uc
rWkpH/oV/btkQ+PxtBSgDx5sF2/D+Y5f3mrpvg455DjDe68p0EdiIpjSWzAn
bHtgL1gF9PZenbyFsUC/8NsT/esK0MuOqmmpnsd5qzN6zYs6M5RWPiOBejE5
Ir/24WX0rdeWG00W4/w2TQw/3AZUrFe7/ytdYImvfJV4DPl6P7kroyAUWPKs
YZVpI6CUS2Qki04BS3lK63LacyAnNnF+fbgfWKv2qGw+pQVkw9gf598EsBRI
7v3XcL6TzK0TxG8DS6KlksFOQQ6qvdW7bRfqh1ieiiL6i0Z+44s74Xgu5I3a
pFggF55bxpOP+yRc9riPcKFuZ9kfi0V+eP1MyDYfua3Mj91MpqMubra0yUd/
jN7DcacjBuhLos83yWDedJfOdxFEHT0ofDzkbTEQRgbh56bx+9fd8RBv7sF5
XJJbeBW55Z/GrhsrG4EQrmV1MvOBemuwk9cF558jWTFk5R3kFtuy5p5qYP6q
rIpfvxko9/ES4YBUYH43Wu3jgny+Nue9lS0nML/tZUzXIs/9niivHHkMzB/d
sgPnkAcbTpxtEVwLzLnWGQfRa0BeKYnp3vUJCD7xtLCT6C/2auO3Hl0AQi4p
/K8+5hClkLXSafj+un+XBfQvB2KC9+XAmjfIGwrr/DvWYy725hqTwvwQWtS8
IMUYiAyOtpE3aUBkGw7wR2AOCTYI6IkQBeLNRYdL86gP1jEP7hsIY67mFH/D
jfOmtb4hPecX6s7exbZyOE8rLqXOTDOBdGTZV4UJAMH1Ugiqz2O9LCoYudzA
nFQ889Ia69u0IEV3aAcwR14JvXiJeWruVOSBdR7ApF+Xz6nHAaW5OnZETB+Y
LM3iCa/PmJdjTptvqQPmKNeTfPNVQN0R2XExYgSYU+u4BrEPqA/b96n1b0e9
SDlp3DsENFfCoLQ38rcM17RbHHLexgihNL+9qNvWMz5Fv9Df7u6ZLcV92Gv/
O7D6CPJq5E61GXk8B3fHpouYPx/W8k+fQt3NjvjlEpcHdOcot1TIc9SD9ZpD
lvuQG18+z9dfBcQM55TW4CKc97mG4YV4/ipxxcWDejjPdlJy/uj/hyw9AgKf
AWvd7UX31xoBmfxBQO/TBmDpVmy79G8z5qmrd0XrcU62hVln8aoCOS8QkCz3
Blhbx98KLsA8rPV0f61ICLB0RAwvceLcHJWR2K00Cyy18Q39qceAyipIWi1G
AUvqfr9jHOaUzv5Z5fAiYHE7j27vxLzLvX0dXY/6N2r+d/QR8ukmm2bBRTbI
0Q/lK2UjgHa/t3MJ91qgiz7Kcw7VA53wZkWJaCf2vdDbeiPUh0eHioOSzIB2
AOWbOzBff1qwuUsCOV99l9sS3Xs4757l/MR7oP4sn696NAaspTuctf1WAtWS
c+9oKq5XOqa7nDAFKtVFuuX7HWBtPLflkC365OF2iQ9fgoG1PWqp7LdAzJ3+
Il2/fgNrp4OUvBGey89ny5ufO+B6tGX98W4g6w2SqN/lwDLcPpP5dwbIyyeX
W7ihjuo4TzSELAHSut/gsTCe6xq3LU6uyUDK/gjLfpMHLDF/I59qzI3fVcYl
uO4APVcptqH0DnLr9BGNI7jfgWONU+Poa9ebLb85aABd3z8YfB25069Mu5RS
Qc4Tulg+ijxspmUlswn1IuDlmvgVOC+qufsWzS5Gnred7vqw+3+/nosfQZ5a
rsDKLzIB5rTd0bcizkDRqc3HT/7CPuZ81jxwEqhK6aPbv68C5uczeQl7U4A6
vyo1tOcYMNs/Cm5StwfKbI3w4X8lwGxb/c/M7hpQYml3wnwtgPn2VFCZSwOQ
A0Nj7ovcgNnZYLv1K+pcYWoOb+g5YA5MZDQUCQAZIqK9OFIV9WTqrODcGyAN
Pywd9uBDn82/E70b87rQznPse3eRo7sTDO0wRzA+w7wjcsGW3SuG8tDPKyeU
TtqjXh1sGJYVvglE7G/lj4cxj1+Y4BOwRT9033qfOOIIRGHC/afvkbcNJFUD
DeKA6NZ5HMk8h/z9Re3MARXk4JS294+tgFgEEa3xa4DcuOlXtlwyMMc4e48t
OwOk19OYkMVZwOz7ZNYY2wLkrWoFnmV38RwOj5g63wSyvepSYjkBzFc1aaaZ
UUAtMsk4FfQEmI2TT7Xm0V+2TB7J6+kD5kspk+IJP6ACLedGfG8B882qFKtQ
B6DyqKC3gqgv3TzRStGYqz7v6A1+5wtMqrhZeQj5l+evRufzL1inkZG7528A
vblEY7nWR9TtW+8DZrSB9vq6LWruGRDrLguZLBcAOsVBS2k2CTnQ/7jUyjWY
S+/I7nfCPB8scO5AVCbQfUemNTl0gchcJn51/3Xkc1/Tr12JQLxer2nx+jP6
lHfdoa3oK5Ocl/emhQNrvdKdw8Gog8rrHPO/IOca+dpu/59r9++x57t4AVg2
UgWHt5xFff9xYKebNLAOicnd5hAHEh45bv8oCizXHXJTebpATq6yuZaujOtM
kd0hE0CpfpZ+EXcOWE6KPgtjkatdHF31pr8Cy3bw2kIGH86hftgG4UicK3ZP
3xD6UYu46/nfk8DSclCbMK0Eau7M2YbHSsCSduwUOIZcoc5x6ZWvJeYTGQnl
dd5AO5rs69d+ATTzc7cdIE9HfStVpXyAfvbu9/ftJpiHb38rd63Eudk1ykpA
7ujienGp/zDQ/tcEetr4UC8+vlvIZQH0jkXfeDXkgSX6Xq26dhxokbm898+6
gLX20Z814uuBYnaJ8+mJ47lYt9uZrAaqdEJZsQTn2y6M84JdFVBngGkzugf3
LSIUrNoL1M7cWurWF2B5z8Gg5CxQQjz5Qu/xXHxVbRIHioD84mS6C4SAdTT9
qqM3ztE93mVXTbiA5WH2/vXOciADz1x8fjIOWA4WH27w4v0G5/uk4pHbzL72
N48j1wn373evC0Ldzls189IOCIrc2TrKApZi+npeE+TSmgGiObUGeec71ZXL
AUTKik7vug1Af+22uh4hhXmip7j8132gW8N36+4+A8Suw2efXUauLFAU3tEj
jXme7elt9gD5a358IuYg5oECvYX5yB8Otq9PFSzBuelc/cX3NfKGz/VfLmLA
7LnmNrQb882CmL87JFSA+VpgVK0U6/vhb6ue3n5gVrvuW5LhjXlQ0iV6ow0w
S+5dGxfBuTm+Vrud5ADm/a/k5WEboAyu7La90gXMPP2SozmNQAlGpbzeswCY
93IuZH3Aue07ERCe9RSYxcKiOQ0XgCwqkGndiPzx6KL11AbkkdBTylHnjgLz
OTtERucjkLs1O4o24fM7V625LLcFSEm1+z/HDYA5pFB9ILUKiNGyQdNUb+Sh
KrPYYREgnvMOsxagHkvXKvT3fADixqXx328wN+jNj+xahlwT6OZ5QuQPEM57
BZctQx3fQ6aMDgQBcdFf1KLfFnXYeOPk+P85RokjURk/z1enVEVhbulWac4t
Qj0ZD500XGgC5IKt9UazH1B3HzwR816PfCjK8UvsGupHaLFRnifyoyu/VyDq
w6MFQvHEHSATe5ROsEKBmX/oV1nAfeQutd7P/Mhtd3KENRta0Z+WZH20Q12/
+aWi0f81UCtlNUd35+NaqHh91xGg7KU2PW7lAmamkYW8YwlQ0aVlqit2AzPX
9/QOvhmgqmOiDja2ALP0fA73cDDys+PiEZU3wHzq8zv5bRf6yEdvB700YL4X
uZgVjvxhVLkxTvh/H3E8vJpzBOepoDUrcjOeozS9Nq4a6BvH316el0Xe0ZiO
kED+efr+UvYVzDPbPMybJfD7mFGmr7iKgHCJqnZv9gXWwgO92n2LgLh8MCF5
5XrkcPHaj3VvgSgtmFVaGAisLdcCndmYz3rW+u2YeQUs67sdU6HGmAPvLfRi
oI97KuovNEGu02oeHxL+AazgibZqy3og3S3/+er0AevCv9OeQ9FAXvs+e2Qd
8kus1tYV+9GvmhzUf+aqAyvh4poCA+yXKYNeHfcwXA8H/HuD/aqy/2lurxuw
rnh5NX7EXHDQMkyd9xqwLnKEmf7FOY//sqZjvRewTr1UkfuK+va0qLoi1Rzn
/kXXdpVbQH0LOfNNKQZY9uJl6q0rgZYaj7/OiEbO6I91vjEAtGnX7hVNqHer
dDPWR4gAfaK3KpDliXnK2rRbvwfozJej7goVQLPOJz3rHwX6VbBPZ0Qp0A17
v209fw3obyJ+K9vw/G8slOPrOAMsIce1w591gT7KNuCw1EBdF5CWWvkW6K17
N7e8QF3fM2G6s4ofaL4YDdm3KsBy7wW+2wXoR2ODx4ITcR+ZnwIoIfSrwUXq
lpiHosVOXGjvACqgonxlL/rE1TVaAg7Pgdrckplb4wqs9KZ09dxCoDgvxvJs
kgXWLULm9KE+IN8aXHmp8AGvn932ayIOyBsu7r/dJoCVkuZfLzoJpJvhl++L
3gPrsiHvDellQK7bIZb+vgRYJ5M12u8DEHN1E0trE4Dllp18bS4LOXdx6N7l
2BdmaZvcCfS5zFBt0d/fkWMzNy8dRU4OdC1f4PwUWIKUz3CqO+oZ/1D5HiHU
u/sT3Vk6yAHPu5o7MYc2Kfzg9ANgzj8fbfDG885In5Je5Ye8Yvr8L3c88pTd
rTfnf6Kvx2VzTCCHGuR8jXmE+lFUs1n0OvrM0o6hB9VXgJk24/zXTgeoft3x
ypr1wIz2bZbYNvt//lXr+iQMzDB1xp+7MkAF8/4c2jQEzJA9xcuNkLf0VbUq
iiuBebyzYMWkG1CL2Z35KduAGfz6w4lZHSA7skU2MByBeVbpbup61P2M0q/X
FF4AM6pXfmr3W+SUgHNu1ZeAeb2X6xYH6qGmnl+F6FdgFizpv1+PvPPv6L4P
r3ENRnu6DusB8c56Q4WrETC/uBmIrMwGIsuw67GSOTBndEy/D2MOO37FY7Qt
DAiphGGFJA8gTIP7zypi7jJUm4pZuBAIBZN05kkJIHw+LKaOIEfObye/V24B
IlWv91oy6mhfxs3RccwtL+R7fDHHMCHxzR1hzJsTG+PGq5io66ZHL028R65Y
vXLIBM89+YcA3Y28deD+ouj6C8A8X1TaXYrckHDIbO0RLTyX5PDM23pANk4c
aGmcBKZPVWOmAN4/IxrEkRABTE/V+u7I30BpeGwTPnoWmB4/s6VO8wPlmeCW
fiwP7xdIIhxQ/zJ0RDb/2APMoBPF18t/AvWeN9X65yNghi9X3jKNvsdZ8fll
EwuYiYPu2vmCQGv3/VpOf0I9rFSvuj2LvKVbPMN+B8x6f0ZaOXLC9dNjl+sU
UK+Hq8S2rcL5s7P0Poj7n57kntH8CfRwlL/JxiPoG4fu3hTejrmj1edNrAYQ
O9gqfAuQEzRH9Mr4LgPha+83fQ95x6ZYxPTSSSDSjxBWMsgd/n3ZK8r//3fr
bi7ZV6g/0bZuiyzQd6ZsOz88Qn25VSweGR4P5CqtL5b/TIFVFGNfpKuO+drp
+cLTqEdVHw9q3MWcEp1kpfrsLLAgai+ViuuaKBlVnzZgvbxi20iPAfl1dkjV
H/NZ02Aaz+kioGSLZ7VfIOe8uGR0PEMYKGvbiyZWz4H1NOzK1YRWoC4+mHrx
jBdYlR0JJ50xFz0O9p38lgms+ykWeauZQLG8Jsba9wIr9d2N+6Gb0Sd2/Dzz
tABYEdk9dpOnMI80hyY+WIics5JbTANzWlBN+tAy3J/laS+LvZ9Q376UWb/D
XLah8Yif4P/z+fOJfhyen7CqZ55nHebE1iQ77suoc32BJEcd/r2mfrJDAdDN
SwSMzmrhuU5pVbNagM4aHHNefQN94fv5lpSrQIfcfDSYWw0sv3E+xchkoHf7
3WyzbkC9+dS05cIx1OE01b7F+sDKjHqXy5YHatRy8iB1ClilA7e3HN0GVF2P
NvceFzyHVskDSwOAuhJ0YYcd8lmLbu20XCJQBxxObB2qAFbHipQn8v1AKX9w
3EuxgdXt4ZivNw3khEyflIo7sD6KXZguPIx+fS53JBOA1akqe47Fi36uxX/1
3ApgtRVOSnlNYC4PbwuxQF5svO22xVwJSLXsu7/4cD+PRcydFJG/5j4tfrZ0
NbDypHjnBbyAeOvc53YTP5/0zrSv8hUQ2SfkL+aYAeu0CZNr7CUQIeaFizSx
zk65VffSK4AwV/iSdBV902BxjGTeNyCUVx15vEoRWHLpTw96l6Jvx4kuPqqP
OSFCU7btBurhuRCXQzgXH7/94Zytw7le3ZwVch7osqVrRdUUgXm3/InIb1fk
bfGr30YjgRmrpwHRT5APt57gOXkb55i1/eE55Gi1x8ZWezD/HW4bD1sahLm8
zutK+gwwrbjVObvqgWqL/fQ9BvXWKO9e0WdxnNtDw1ta3IG5par5m4/U/z9H
G3/msBOY2iYlp/o3AaXD/af8xT1gajkKVXmzgOJyjNp2PxiYG3/a9TgsQv0s
lr2Xxo+f548yXNsIZJaOWreyHDB35LhsD0Nd8dua0iGbDUyLe16igg5A6k37
2rXj852XjP6LfAok3/0Xfwo1gRlYvcWxKg+IvkgTu5NBwLycke2RfA955CWH
jNAPYGbdyK52HAIiMldyxX3kproEUYUXhUAcsEsvz/ZAvXWwuvWpE4j1fLL5
rzYDc+6jmxb5CDn6d6X+jWEg5Hq17krGIT8Zx1EfkYtM9FrWbWsHZpNszytJ
XiD8W07X6CxC/XyQ4cRA/0s/feCerBkw41IN7tdgHn4xuEJ81QNgnrD/7f3S
E4jx1rRh6jzug/8Bx73VQMrxSi+eWQrMPW+/2Lf2AGnhmVnrjee0tdRvZCoc
yPD834vyFwNz/bPHkgN1QJbdUm8VRm5fw2dTUj4EJJOrxOM85lvF2xsLpbiA
EimLC1yIeigfmhTw/+/VGLs9jwzdBUyFnH5FvkmgQliBp5+gr60SZW796AtU
PqesvCH6xdqWcqd3yEWfIn7+XDcGTN2aeqXYvUAvVv+d+Qrfz+Qjyfd5DvW3
fY+kL9bhgNClTRuPAu2u7SUuHgtMX5u04RftQCetNT3yG3n1YlRTnUAO0DWX
Kw9J3ATm7aQElVT0eUL0YFmnCDBrbZyu7F2OuSd/xTgf1rmnpEHoKnLFWgkJ
Wb6DWIfw8JcBSag/+n+8Za2wDnfaNTeLof5OCbWLYS7ayTp/eyPqa7zsketZ
ylgHtVVhL5Ef76f+sbl+CetgYMfTjnPzzLAja00d1mGqKdt1Gueah2+VP/re
D4Vb1YGoG9RHLuXrbliH+Dgd18PAmkhz001hAWnJLdsbuQNY//RWBmzvAPK8
Ix3xOwHYi6tL7/7tBLLcvnxx+n5gC3B38FoizzJftkQ5qAF7qXwbXy/mYdHA
9YXi2cAWXGRlH01hzlR6P3opFdg8VWdN5aOAOllU53vbBNgLN7eXy/hgHd4f
VvZpBtZUuuq/euT+zy4N+zG3sIb7q/44IX8uWVPaK7UJWD0rPvPHagG9aXJO
U+Ib+sNhCT2fFUB73CgSG9uNuvhiqXAJ5r/kgVX2Ysjbqc4mnp2KQNdlBBIn
8oAVai5tmuEONJVrUdkaASzHorvaSp+AxdcaHGsuB6zNt0JLT6GPrf9ari8c
DKzl+qUni9SAZTuwNF1tHujx+sSEZDzn4PNc/kseAt2id2HVMH7+asllTrMa
1Hequ+Ug5u/SPRoRYU1AB5PZzbOYf19vPRjsjn5t6hFprd4KrH7vrdrrOYCW
TD2rGXUMWOPVP7T0/YD6eq+2cOwjsBdI3eTPX4b63uRr3/0Qz/GCi++umf9/
nhOVJmsEbIkvCfcvox84TF091dMCbHn5WOHA/3//3S8yauV3YK/cQ0i4xwD5
uyYkbl8esJUdrAXvncMcIRCT3bEa2Eqmj193xWLOyMi9segesGVlRDlU0Lfd
UnfxfeUF9rK+yznN7chtagfNV+0DNm+y/pQzA8iFiRzaJweA9cfYd3AL5svO
Ueddx2WA9XWJltjQHBB376/Pd0I+717eJ1TGj9w2FfFbEetYN1i5wms19q34
jjglHWBlRchFBekDsWKL6KXFI5h7ZMSCP6A+jV0VcM9B/Xf6TF5pKwFms8WV
NZswd+j28yswXiP3ZEwIar5Af923eFsJ8mZE7lWN//9diR0gFMGHeuYW570a
cA7rDo4GWaM+m5xcNGKCfp5g8cC6ZwnOeeTR/j2OQDuFBVCJPcAUb2W72tNA
q0srO7WhHyw6yvkhaCFQM167vlTIAeN3oO8yXl6gmq5nFna+A8bI98Fqc+zn
ZOZY1b6TwCB+rKo4thLzVmy7p8cxYAyc562SEECfbTbVjtMGRn/mPilZ5OGx
nmz/8/eAwTDtsPi4FnlnVmxd/zZgsC7Y1quXAHnJ86pS7Sgwxrc0LV/zDedv
f+hG7XRgzPtu+LpkCZBSvPu9WegnglwDrrliQLCfFNl12KCu/XD6e6YXiMc3
cnZkJQNzs2TZ7urFQFxiML3EOoFp63VQLQO5eF+zuYX/FvSLqhsdO92AWHOh
uZMDuTN5xH8opAZ5WU+wrAXzQmU/a/7NKDC7lEM4RxioS0c1XjlNA7Pk2AvG
4jQgFnh2SAmJo4/q8AiGpQOhltfn85QE5pGSQD2N60Dsn5F3LkL9M/0pm+kf
gzlZ0/kyGY3nriyyeV4OiCrZyGJ5U2CKuXN95fqB+4jtzclcBoy/TbZy6m+A
lNy+z67jNTBGXVmR95ELLZZU1l8vxXPcszImMQrIyNJ3l3/vBEZHEoO4jj75
ZObtuqwAYLTo2Q4FoR98e+i+tXExMF7uE/sW/gEopdv8IQkUMBqZEuEH0R8c
LpmWyTri9cGKsJuHgUpa90lMzg8Yb/Zm8u40Aeqlx/j1iV/A6FSa19qmBNT0
WMSer2eAMXjgjH6GHPZJukuG6AgwvvcbJ76tBPqwanTbkV5gLshZN5Fqj7pz
3ORfOPqDeFLT3gHM0Q3bTmuevo7+lXLEzVkY6O8Hyzfd7ACmeZzXY27UJ8k7
fu6zksA85rLauCILWMY9RkQe+l382I4/fILA8iUWuz2aAObDZWVFR0RRZ5J/
yu9GzvlUwt4XiLn1cUOLqFPD/z8nE6lIxTn6aDGvsU4E63JVO7UJdeaXVEu6
+nv0+xgnhapzqM+8FnXLrIGINm6/9CUO2Ks5irT+/33nJ+nbBFwtga03xBfU
uRyIYeufztxngL33QZPUpnVAShvwJUhyAfuQ/kFRg2IgrTTyp3g3APtIUsLG
h4+wf7/JJnTGAztgtY3La+TCqtKarINawD7RJ9U0MwDkUOv+Xxc3ATukqM9O
BnlKSkLyjAnqf/C1hceSDgG19+hKgSuhwA5MC9aebwTqfNozEc3jwPapiR0O
nwDq4Ymw64uWA9uFk3uBxBegiI+unVeKgG0bxncqBvldNG2BwmgIsI3Xi4hk
rQfaKDZ7jBUAbE31z+08kUAfjz346wf6l0yk/bnqQqCz/Q3tppcAm3tHwb0z
00C/FTnxQB51ZzSSo/6KBtDT1ibDV2yA9d4+6d0f1C/FxYdIVVVgPfwcWCDK
jflepCHxGHJ7ikJy6v4HwAq0+fcmSwP9eW9ar8NxYF0vNCp+tRVYu0Pf/LqD
vlU1fUS7E/OC4suZRwIOwPqkzB86Pwz0rKWDxwNOYE0uK+fxWAL0+y1+CzgE
gC1UUfuwSQzovAJW5oelwFZhpZxplAT61LNYaRtzYBvczu3Nj8C8kM1j+9EJ
2HavTiu5nUE/Of69OEIS2F7WVQL9mCdHnE64rf6L566pcTFjA1A1lz2uVNkC
O+IQO2IU82nMsgWDitHAvtIirvbmLlD26/svtpQDOyVwA9eTBqBWLqjrLg0C
dupe4kC9EJA/yk44lUgAO81FpHsgCEhwfbtQB+tw/T7htMAH87GBR/ItvD95
5T1h10tAHjweW6VUD+yY/v4ysyogVeUULnTh58N7Nmn9/3tHM74x4SGfgH1c
7iRTVgWIlgshyYp1wHarO1uk9gCIW+f7ow9+AbZV7ZplhTWYSxM/ZZNDwN6q
6pAnPw3E9veR44kc6G/Sn98ovwFCzGv0/ZrfwObLM008/R2YI8en3W5h7hvr
Fuu3dwJmo9guPbklmIeaDt8dMQRmho+STiTW+WH8KNxEbjyZ6HPrG9Y1aSf/
8HFZ1M+sUyEvlwHr2JLoxGwjYGpWiXs+X4VzOnHxrR3mA9GRwOpDmKdklAJT
iePAmLKZmt5oBPRE1Sj/1nDULS6X0ZlGzIFvi/TN8HqT8FWxDUGYJ2MOGpcp
AKMs7uaNenOgA5Ykk2/TgJEZkds0uxVog8DcRgJ1LZ5jQlCwAmghMt1yiTQw
wsV6IjJR1xhRnIdHHgPj+KvKPhlpoMpOf69s6wbGURmWYEMhUOfIpwfM5oDh
IddjUfoSqD0jQsuWRAPDpX3urukDoFaUF36Tcce1RsMwN3IA+5Bda+1VYLjp
3zsQ8B7Ix8KvAvligeE1u+FIIXJ55GRUcf8CYPg7/VNcgZxgrfZ+CfcUME67
N3zOOYb8+Pk8c8FuYFxen/mjdQUQX5c+meLSBEba376Wb5gbnqzu8yyfBUYR
rOUx/v//35nrz8/h/p4f/vCkfD8QNvnSDUn+wPjS9uy7L+YRRdeww9W16L9j
eRarUD8ncgVXTnEDc1m5oHw35pFXVwWsZk4Dc9NEqEABckGGrRKfyDdgOt72
M3ZDLjjOYzZxcQMwLyTd4iovBaZZd81RrQhgFhT+9LS4CkzlTy9uNuQA88Ob
Vv11l4DJqd5iR9wB5t93sxIOeK7EuPyHEAsg1FMmFw2EYN30uGxSu4A4+G3C
6JM47mNlxOMznEDE1wvG+KgAI+W5L2+PCRDPujwG4nqBEbbSUnaCAOKn4JYf
fkxg+Dh5LjkfCuQqA9nCk0uA4XAmoYZDDefDgGd++StgmEebJh0aATKZjPq8
AM9hR3zZyLsdQL761zZXwQKGXsrJ2hzMjfM+3+s/on/p3Bxa9CAUKK3fPyKu
qQNjU/6Q29saoI6e/UXHYl11a2ccN+cAlf3O1mcB9s229/r3F2kB9fHFi5R7
IsDYSUSZEJxA82ue9likDwyrEXOX2t3Ydz8MZcW6gOHc395xwwL59VOBVK8y
MAIeigULygKd/0zofTYDGBf3Tc5bawPdc66rgXMRMG7Wb/L84wcsnh+H3cO/
AKOiI7G15g9y2y/TEf0BYLyLeF79B7nayz2gcZ0o+ntVKWwpRz+TEfqS+RmY
AgeOWLoZAKueY+Aq/yP0y73GdVdmgUWOL9/BewuY+0L/mfsA5oe3151sqoEZ
9vyV3Xnk3rXn2MveY567z+2getsO2BbswxHe2Ccda+R/zWD+8PupoN3yAevK
vWctyY06F7PeblIN6xpOvem7Dey81PBF9k1AHPKf/M5+Bez6xRPW7feBSKi4
I/QQOft9+5kAvaNANCivP+d9ANjEALfXAfTTiRxrhZV/gP1z9U3FbViXNQuE
z/1Cv/x7dxdV7QWkk6xALesWDC0x0VfaDUBe7Yh99LoEhpYKPHvv6w9k86+E
2ZvKMCQyuXL5hj4g/7lwZZt1wpDobH+MJhMo7dHuDzUX8bqcb+ckGyjfYC6J
qGYYEvB0mRpFbrn7rlntpyQMLeqw4lXqwbz08YFj1llgz/m0pz/CHCLomX+g
EnX+u86x0p6d6If2m0LKKoA9YJx55VgL+sjFU4qCP4HdertO0Cof6KKW7Y8v
oQ9UWU3845UCup9Lx+s25og7/lvEnTCXCQp/83RGHb60WIczGdfb3o/xOYyh
/2vo2exFn/OV7xerxPM0vRp7m24AVrrY07w/nMgXL78EmmsCq9HXOV3UHthc
fVW/BxIwL/BfDTVeA6zBH9+KVRcCW7g3cE3USmDVyJzv9DkM7E0Nrns5J4CV
HJroa/kZ2A55GjWWz7F/FEziPO8C+0yQcN38E2BtWf92t50KsG+KPD5wRgRY
/E1qRgl4/fFJM4/EVtzHH52XT7cAu/1KXPQ87rPk18Vcj6/AZm9/Je20Geiw
t0b0zA1g/4lmjOpkAW12f6te+TWsk71rhzaeg3hWocOSVhiSyz6+gfwOFPlF
zWQIr689RLgERaLuniyrGJ2GId1Lan1evUCdSTtkaZQHQ4ZCx89oumHudQy1
kvwBQybzl07MdQG1lDokdlgMhsxMe458xfn+ss9mscx3XP9INn04DWTeu7hX
0b4wZDrtu/OFMJABQUtui3XDkPHh9w8NzwK5xSnywLgRDG1TqxvZnAjkokcO
CdvmYEjL9bnNznNAdKRGmvrxwtBqnoX2W/uBuCMfZKapBUMSqquuLvkNxLFg
nhdmh2GIu91WYk0UEJtL4wpuIIdNcMnTH28CseRb5N2MHGD3dV9NWIO62rP3
cc4bnLuXNjyyHZ7ALPoqLhd/CNiFsbpOkcLAPMeoEt2eC+z4eMmdmgHAtDEt
y/lxEOfOlzn+biUw12xVSGRoAttc/9swJ/rPv06Z49ayyDPLa9iS6B89KzPr
MndhX/C8X05rAeORSUhkwxXMx+tqiNF9qKt7rdZqYX5+lDlur/IWGIHmt4d5
DwHrim+bbIoZMKztkxdwIhc7PwnRezUNjI1hQnyHcL0h7YOnPearFW3Vv3qY
wOJUPq31OAEYC+zfDzWtBrozPF3cThUGP1rEqOsLAn336diaT90wWHrNIPdM
GdCB/x71X2XDYFyy0prxAqD1XWKLxVth0M/+WYF0JtC88555eSIwaDvZ7fMc
efbjRLT0t7swuD304EoPfZxPF1f7+yEwqDES/EhuG1B+rnF73zvBoLJl6AnT
LKB0xUpza1xgUK74t/rJ//+fzI2TTzaycM3x8HbODJBvF5//eVABBpX2VFw8
1AXkjchd9q3bYFA9Zpei0TbM6cqS1itqYHBLmaDxGuyLtQLcvQ3yMLi3asHt
V7FATNu3zsRuh0HP5IgUKSYQL2XfJK34C4ORGm4GvOeBSL7w++6nazCYe2GG
2K4LhFN6Cy/fWxhsCVpvNbQb80PEhtiXSjA4MZxUa465edYuNugSDzCEvYt1
ThwD5hv1y4/DkF/UuF/2FQ+i/ypqJCS3A8O4I067B3N8oON2Q5lG5AtPke3a
lzGHVy7gbjkMjHOVs94r/YApqz8WthZ9IrNcra4oHrlpKYNXaiMwnpoNcFzZ
jvlu0x+JD5aYu4JzRI88BMaDl7VF5y9iP22MEgw5DQxvm4Ofnh0BpkVBm/An
9GfTgLBMYynkN+9IscZVwFBdW7GndQEws1xPbLNXBYbAzftW/wqB2XJhJiXi
OwzS4e4/8ueB+esR96FXAIOVNo+/r1UEQp6tVpB7DAYvvcwuvXoNCAvue439
t2DQgdVeMXsXiLN/Pdp+foVBzTc6IfE8QBTVLrfiz4fBpeHCHcY5QHxRXvee
KoWB8aW925ZxA8mrOnFYfjMMdMVZ9RiSOL9VF6XqM2CgfjbAvGgUyGMVjIod
fTBQ6Hk8QH8cyNu8cw3XeGHg5ofuZwmZQL4rrFXRcoKBxF37bi5DbuM4s8B8
nQAMXG76sfUO+r2mFyjmc8HARctvF+9eA8rDcWLziUFcU5+dIrAv0wyfRCsw
YSAmMv7P7Bugmrl3r5iKh4EUZd1qKX+gZq4L3cqThoHbr12u3wsBWvVjUfbx
FhgodWWfLXgH9MGasc753TDQOLpMcCAO6HiVP/3h/jDQe/C2pFwY0PWiW6T5
y2BgKi8/A42O/urmrqQmC4PiNT0Ocbcw33Il/DGRgUG9eCceiYPA2sXWVOmp
g0F3vtGxhkZgBU9rHF2VAIOJq/p59n4FVo5yl05kEAzWv1HOmbkLrDZniusM
Hwx+Z/q7hrkD6/fV25ryL4AhohY/+ANzg1z5MxBFHVl3ZY1/PerOrsKEkgEP
5KkL0b1n+IHt7/dFIfkAMHwXSny6if50bYxLI3oQGAkLQOtdJrCr5Tg842qQ
w4N6AzXRN76MH+KM2IP539jad1QChqSNQ9cn2GC/dl/7dfMhDG0pOx57lcR+
Dvnd44Y6vT/ecOOC48AM0PtuMDkDQ8ff362NfQPMm+L2bxr3w1D8CQ7HjTgP
L6ZqY5ajbucdDZLx2grMsbYDmidZMFRbWlfYewkI6Uuq3pyGMNSuu79RVQ4I
M4HvIy9TYIjgCDjrQgNx+sDawZ5QGJrgYKyOZwORb23IF7oahhdu3DL5rxSI
j+yD3H0XYXhpapOZlRGQi5ck+qlXwLCUwulWNWUgde52/SngguGVXZyqclZA
euctLzRygGH1oqZ7pdFA3pxdf0d+GQxr5naZ/O0GsvXqHzXjMRje9PRXX44T
cuehfbel22F4swjdcsgcufPcl80ycbjeyMtcrg6UzwONBz76MKyjGB8+SwGV
9T5YXDwRv49x3vM65pHuzrHs5fz4vECmrb4x0HzZMl1vTWBY6VOqnpY00Iay
Ve/SC2B4xYrDq0o3AH1yc7VkXw0M8+sNPs8xQz7p9XN7EghD8zuT0u4OAj3w
/XT7yY8wNLqtZv5lOrBEnHpVcBaGetRPNYqNA2un2FyJ2B4YeilZGJHJANbJ
f2U3hS7AUInwj9aqCmAV8Boencb6XZcuW5D3GlifFU518DyAodCdv+b3Y55c
rJlptisLhg7dvBxpg3ygrRYRIpsMQ/pK78IqZ4DtOhvL+7cLhmR+9IjsmAJ2
QmJh9FsL5Ahh89gUQ2A/+XQiTBtz/OdkNz7sezajafkVkQfArjw3YLBLA7nQ
1IvXZQn65jBPl88oDK2z6T+0IQDYeqemFUJiYSjkVfLlx+HAFqrP8HmcCkM3
lq/dxsB5oRqyMmglGKqqqYGlyFFPUv2GvJAru+6v2zokDqxY85eUDHLieMe2
e+uRuxymy7M9fsMw34b9yf2ZwFIpjmw8H4Dn/rRw8NxboKdPvbk9dgaGt/gr
/CWfA/0qcO8+rmkYttTzY6giL13L/7uQmQLDbrJ/MvRmgXbZMPlzhQIMnxD5
26jMA7S6gi/x5yEMR4p4eeaNAzUV+9DjMtY5SYLVdrIIqMZwhR3wAoZvKU4M
TPIClSCiKHDsEQznrn1u+s4bqP0OK2qSlsNwkY6hzXXUKwWvIy4B92G4TF8p
hH83kF/3HpINomC4wvBDwTo25lKFjWJqpjBcueNEwGglkOGTS+MGw/C6AbPg
RR6Qpr2jOyMf/P/50uX7c4AUGbrzFTlouEhfqmrHIyD617aVWyjh83dI97h+
xDl6Sksvc8b3s7Ba9P0CEMeLpRf2k/j+Xn/yQAAI/cXuJXOWuL+UpWFCyE88
1JGNmfW4/w/LZ3ftAeZH2yhu1M9h9/XbbQXRb3I9W4rKh2HYqsIiaH8sMIPU
RsoDa2F46+GshhL0ye1Vhp/VGmF4lYHce5uHwFwq1hzohe8neGjXh2LkmcH9
IiMOJjD066nEXEgQMMrjze991sW+9hUHg9/AiHyhNWmAPFd/wuR3wWJg2PMu
d2jGubjdr8iub0Pf82+bvob1P/coU1eOCwb/zR9PCfyMfbxI5M3qlTBYknDx
19Nc5NUvVtGJG2BQyCX9ccB+zAnGejlpqPNvKpvcny0DdkvGIa8q9JXokzVT
VbHAzu0svGH9FAZMav+j4MyjqezaMJ5KqBAZUtGLyFihkHBLSaEJUeapItJg
yhQylbmSMRkzRIYUSWxzREWR4RzOPB9DilLke76/rL32s8/Zz973fV3Xb62z
uAXeiEKMsN+yWyLc0BR/Cq75NMYV57cu6cn5o8mP627qCnkihppmnlLsAppM
V8xZyXdFjLXO5S0XmtGkSrXLrOUQoleJHd337hDC/1FtTf+vCdEj6nGCuyQR
fuC+RsC6DYhu+YBK1ppA+MLB5RWfT4i++21D12kxhA/ZnHgw3RzRFvXa0q3z
Ef78MZ8aQw6ivZe5Z+ASi/BakRfq97v+/3ddz5aFbiK82Hv1F1x5RLtytK0m
thzhlmS+T3irIpr204SDeykIR0waVrYzQDTe1ObBTZkI1y+u7u5ljqjDu0Wf
PHZAuDfNUbFKiVie87QQXbcL4SruRlnSqhH1hpfcg94mhMvz2Sz3PRNRDbXM
Nuw4iHDpwRr4amNE3fTVJ+3wWYRLeX5Q5Z3N//+PxB5TAyOES/yXPJUVgiil
vXx8f+8gXJI/J3p+J6L4H4y1GWtEuLRNurKrGYhypJLXiiOIcBmtucpCzxBF
+MBgh6wtwhUkhiUkdiIyniAuy5pEuBfX4pcax7Ec8ppIGM1GuBbnWiujm5hf
dP+X+bYa4QYdtJSnsTo23fbEJyMV4egOTwIfeiOyePNCwCg2Xr34wStsKyJR
3xYb/7cH4XeYf7cPu4lIr3Z9v77iivB6Kvn44X2IFL244tDbgPD23A6iXBsi
WZvVsxaOI3zkvYrVR38QSUHh84UVbYQv+7lpIrIAERcfjhjuXIPwq4K6Sl0h
iJhrXvzcnYIm9xbn3lIJRETfSqeOPYJo0mXi1TXLeUQ07qL9lphGk4+fRan+
W0BEycLcyRMBaHJg8e7jYV5EmHhsOvz7OJragNqNjOYRIf5Bh7KDF5oynv9y
TmoLImifZH6//QjLKXZP8tbLYvlpX3H+bwdE4L3h7fZLF02dChfbmRCPCGYv
j+T2xqCpdd30PSf4EAF3ew99ENBkYLRtxjVDRNx6Td9FKgRNam11k8GvRUQ9
0erTWa8Q/vtI4Uf2IURMkJRq4m5H+EDZ4+HPjyBivYfUvsUDCH+4PUQ2Asud
k1F+m+TLEH5d+51hyeeIxH+JNnz9M8J9Uj32yZsPkQ7wS0murkG4XH6FB/rH
EMnFKf+T/R+Eu+pCad+MQ6Rk5z9twi0Ip29QqbRFG5FY+pS6S0/QBKNwa5qx
PSLv+Km1Q1ABTbRKu92lHUTkMyYs3a8zaCLzBUVs5D9EjlYoHyskown/i8oD
z7H5xnjhfdteownr3avJNjcQmevYKPFaGE3oSLhvprohimyePrw4hiakNRLC
sfqn2B4yPMNWQxMbgmnuc68QJVnBfT4yFY3Pz8sUu/1BlM7zjt+2e6Fx8hOZ
Kup1RFl6x8r+kIDGR4IFiV1bEXX/meGy/g403n/fVuIBG1Gv8PxbaXqIxrsG
np/aR0DUvPeOpG/X0Xj7kdXIToyDhh/9i1m9gcbbGNklfVifbnLgT/v5Go13
Ngu03X+PaMZb24pKz6HxviZNNd2niHa7JqHWKBuNf5k6yf01i2g18ly7RgIa
JygQ9wo2IBrtUqpKfhoan0kgjCSfQvQdXsZvZETQBA/fI83/581z8v9axvjQ
hMTjsq78JUSPS6BJvE5DE/v2akqUViB686Ojpd4sNGHWV/fSCcsFc5oZas3Y
+Xu5iMv/MUaM3U731jm2oYkEZusW+wuIcWHzQs9TCzRRYxdr930eMRK1ZpiV
D9DEt0p0cWwvYrT0Ne4rpSPcmi9GEoXyiDHb1SuTqIhw6p3OOefYiCm748vJ
tVsQztHv39H1WL6LaqqxPZGGcF3Uf05/VxCzdpYnRvgVwi0nfS+pFkRMguOp
9HEThNfuTEvib8PyV5dHnmgywr8sK14wIyPWpRcPT509j/A/D+WdaT+HWGm1
kX3dwmhSV96a4PUHsSiM7YXCKWiypzOkuSoPsTcLymeRZ9CUiP0MvvwbYmtp
VATqZaAppy0HCwNMEPuOY52HdBqaWkkOycnJQOyii9m/ZeIQ4ax24lDuR8Tu
1h/o316LCCXNT3UjVxGHr6QuYgTjOuXEmdtvfiPOnl1j6zR2Yz51eWyy5Qri
mFzXmAjcg4gxQjeuVHkijltKnkVeKCK+DNFeJnxHnDshh8ZiTRCRVFjE43wa
cbL3XmHXqiKSSNhO00VexHlZ1hvrcheRjHn4/h55iTikSdpU9UtEKmE8MTmQ
iDi/Hsu37x5FpFGdmWL9TMTdvOGx9y2MZzduEXiw5IO4u/ZL0ueqENngClzz
4UFcDeHulh0diHzzALVsvzviHiletLDWQuRnN85d7yxC3LMcA9GQ6xjXbaGc
/1SHuE5Uz+nBr5geC/7DWaxFXO+UaOvHWN4+5iyyxqUVcQMb6CZf/iFKMI+Q
4rpwxI3M3RFdpokoLyiNm+TXI+59vXHaPqxvyKtC9/EMxE3L2BT9/9+vbTPf
Xa3zA3Ezqgam2DKIeqpNcsawHXFzI7xXruxC1GgbiQv204ibL3Ql5goJUZt4
nRqnnRC30O7aQNR9RJ3pOVK7QQVxizzs5/wlEG33A7kBu9vYWF1/NPoSotk5
Bd+znELcgoYTh++lIFqa4hcL0zLEfbqGVCk6jGjd5M8uDDXEzRHKjOeOIdrf
ROWxgRjETSfJrbXLQHSNbS9vnF5E3JQQNxG344h+OcbSPZ0PcePwLp435RA9
9/1mve8HEPeOgMXVSi1EHxxfTq5ah7j+60J3an1HDN4Gu2ZlBcT1/HhZpDkM
MfTOB+c8xc7fweu5U04bxmm1vbIXRRH3NI4v6v02xChqH1p944q4RrudzlGx
8be7RgdoROz+zHemYLrN1P8d7fIHe15wL7l4rBQxrxcdedj2EXGWfjmmSp1D
zEKKTnB9J+IMHrsq5YvlMd6ti6Z/TRCnafAQ7fQEYh38/SxFVRlxis7oNmcy
EOuy00VOXTni3NA2v9tSgljdWXwK+8QR53yp3VRdFmL9dJ0eJBogjp5Uylrd
E4gtl/U6S4WGOGu2a/Xo8iN2uJ72Drl7iE2qNYjXvI7YFbnsq0n7ELvDLvNk
3EbEHrkQtEcNWxf5TyrmmD3iqAzFh31zQWznNdaXpCsRxzpOUuK2D2LrK6/d
04qNw2Mzt5poYt+7xiU7pRBxPtosXtE+hlh25jMlIUaI604LXqVifKe5YZ87
nYS48Q+pw2UYfwkIbpNYfYi4z2/2ZD26gpivxfzUoAlxp5vKD5IzETNBpqEm
rgpNC0mPPFfHeMnpvvEXiVA0rV4x3GRshJi8D9ke42Jo+qoGj9SljRi/HCYJ
pd5A0/FKF/feCkWM5xdGbOxeoOliGH3Xb4cYp9Y6s5E9mh7rnaamYPwindV1
fHI9mp7XKRoftEb06YZ24bOf0MzGtjf68RcQPenJwuljP9HMIek7z0L2ILpT
6+BWPjM0cyqiaWMHQvT99661GemiGVeJuofrME78KndjNAahmVhiyt5aR0Qr
/hPPqZNAM5mi4YoyWF373++KWCWgmbIgcE72RjQx/ED7fSKa6R5Tbn7TgajU
cgnHS6po5uvXxb+iRER9dSiy7owrmiHxkAQq92F9ld7IwHLLzLQrY9kT4xfL
Fped5m1o5vdP6ciMRxiPNIpvueeGZte9KYn2wvxxLtaLefczmhWsqR3ncUIU
pMqku82hWYnxOPJsNuaX1VtVDnei2V3aodoO+xDFQdjF33oDmlXsmT/yTR5R
VKwM2dKH0ax6ovM8uQyRf4eLTg5dQbNaMab29pju9KRpZ9UYolndl3o2z4sQ
OT31z56BbDRrID6+d8kWkd0iilUDS9GsUc0XY9s+RN7v5lMh0Ytmj0aSyhav
I9K/w3EE7N5nTe4PjgQnINKAkKSMvBaaPd4feCyQjUjZkzp5933RrOnx19tU
gxDpSuUv+7o32PxyWGdAFiIdDL+4VOiBrZ/urZE9h0jrrG1zX7mi2WM78okP
SxBxSAs/sKMFzR6JFyuY4EXEfJkPzo/c0ayhxrHdhnmIeE1yweFYEZrV22Gj
eVIBEQ/LKZL796LZg8fDPtn1IqKA0U6pczNodl/9D+J4ESJUszZrBH9Ds8qX
1hBXTiOCeczWxko/NCtnNx9xjISmmDaRLlOjaHZ75n9n8wPRVOwlb+uZt2hW
dDs75Ox/aLLN4tmSPBXN/Pu3Yiadjyad9r7guaSAZn667ZUzX0L4ZZcC9qNn
aIYl2i9m34/wh3qq5U080cygm2e0vgXCja97w6H1oZnO9fcW3XUR7nbRo3u6
WL2++mM9jC6jiSaJhLlmazSTwbihEHsUTVz88dXBKgrNxJEF86hr0Pjfo8bz
P2bQTKD296XVA2gcTIlXh/ahGctFF/64EjRGXh+Q8aIVzRh5OOTyRaKxWOM1
tYUBaEZdK/Z4MheNfjz1zv/dDTSzftlLbygYjd6SezhznR9Nzy7Vpx2RRqOS
sZUHP+1E0xPOphkK29A3j7UM0wg+NP3i6j0xDRIaWa9i9zRoD5q2eBVKetiC
hkuj42/nvUHT+5fme4sc0fDJp0Y9TBM0Lfb0tkWeOvr6cPdxmxf8iDsh9N+5
tDXoixqKfGhrhbiOH4SuTZ9AQyO3PiU5YfMGZjvXXeagoTvLYbYkR8Tdqb/d
ovoBGhzOPbz1UjHijEWYN9dR0Wcxf2374D+IY9b5OVS+H33ye76J9uIB4iiK
NS6/XYs+Dpfv3799DNNJ9n8pL8vRwBO+0zvfVCL2a9W4gbJs9MEo8f7E2RXE
3mYa8PlCEeqrBvrC+7+INfv3SGdbDOqT7o/+qLoPsd6b2Bp7KKPetT5Jl9er
IZZ/yc9WKRXUTWLOu5OIiPnhIx8hgAd1O3kXln9ZQMx831P8RUTUhe+7lbX7
JGL6NcR/3jaJOgniwaCF6d6Oo4OLJX9Q+xJRVk4a49XL97a9vxqN2mPVf0pe
zEQM3czM5lv7ULvoOYtrz4oRY6Ojw4PKSNSmudU4qhfTsReisyo3i1GLUJ1s
rTnmn7O2LvKxRuid8Zk788ahiIbMXMr8klBzcPgbSD+OaKk8fscNulHT/O2N
en9cEE29Q/+SMQU1Cjna/GGVIKpn049qE4QaHBd0XkMjomovmQZY8aDXtT+L
ESsXUXn5iaf9x9ArV9FC3cXDiFLwNOLmf3WojiUjKe4+iMgjfQ7G+6+hOkfp
+xO31RG5VPzjpqBWVPuV2Re/NhqRA4/0ad9wRDWPMt9nPMI4QUL/nPheP1RZ
BXE9c3kYz30THiFroueoXn57TQgi7T7k+0yqD1WMOcWeO3oCEX9EN0YN9KFy
KeVH/g/3I+KDQceLZ76jklH5gsu6fxEhp+2Ze909VCLKOrPdeQ8i6Mr96tfu
QMVW4bLfsxvR1IhzAs9nA1RIHlvn052KpoR9/nzVVEVPb5b0fPX/i/BR/wR2
lBxFeVrrfE6lb0B4GduH/S8ZKHdl59EOvlGEe/s4RyR1B8qu5Ft2azmEJuY7
i0depqDHV1NFnjOs0Lgbb/gH50aU7hu/HPh7OxpbKdxQ2/0JPQo5rRIwxkFj
2con8G6l6EF5n73wu3NodHDdvS+zv1Ba/5EnNk/d0Ki3rX7zWxGUyt5xpHKR
iUY35ErYvRVDSe8sKkFAGH3TX7T7UWaOEvWuLjFq5tHImLDJqYsm6H6PXg1e
Zz8a8dthbfVxAMXzLrpuCLmFhiuEM0dDt6O7u4TP65Tro69iIY7sP+4oah37
7m7eKPSlxvBYYhAVRbD4Iu+yDdGXk39k1+gsoNBZlq7jJy4airBv8O5NRSFi
T9Q87b3Q0Pa1zqHoJrp9+ktTWpkTGnxVNDXwfD0K4Bk8B9Uh6PPXUuEaykPk
F5yN/xwUgz7z98wbF7ajW+u5/EEuT9Eng6kCAd9p5FtuT7t9sRQNlC2IBf+b
Qj57DR8Z40JQP37hv9QtU8hrVJftUvAO9YvMRCt8X4cupQQL2j4WQH2hn4N/
ELKRe8lRH6VyedT76vW200a/kevo74sfHiD0fjoD/kiaIxelMt01JjfRe0W/
izGVmshRpTX/x75tqMfZoocRW4fs9JwrTlrUoe4sOUorywrZ3jnTV3cnA3UN
LvJG2vIhy9zHjxMC41CncXrazh/26OzNPRIBDltRR6hL/OaMVmRB/9dmpEJF
7a9U8sNuD6GTR24bCBe+RW3cH1utfPDIZHrha0jocdSm8FYy2+k1Mma+TPt0
JRC1vlttcthpiYzUWR5SjIuoZe/9natPAR32e37sufVh1FywpSIm1wXpiLiK
nWANo7ciGaVmle5IS90n5dY9XvQmeoeVpF4S2hcZPeJ4uhE1/HzKjJZvQcox
VUmb1mSh15dlszxPD6PdFwzO3KxhofrR4pQzln5o15iReArdGb08uXt2cls7
2uYWvl19vgXVvn02aRQXikQ1eGXqiH9Q9QULipFpK9pobkO/LCuJKg+fihdO
OYzWHot78tccoXKZUx+qIqpaf8tFWCseDEbPeE712/BtbJ0eLvipp9KDCqmn
8stesVqJn7OHbMsTUF5KTi37AGodvL9OeuHmP5RpnbPO7ERb61vhaLmIW3fQ
g+3Zx7fP/GnN+fw5IYgjgmLbNXh19oW3unQuz7Ci7dGtHKcFO7N8Q7GpmsZM
4mW4qJ12N/rhd8PoD8mvbpXUQ8TBMu1bVq2GVR0T6lOkSEgSGtldGp1g2F3i
YbVWQAvSj3hb+RmVGo7tLe872nAAckJ9Nppu32xI7zV1ixE5BgV2DeePik4b
/tCuol/bzAPFQQ1pp1n5hit/lwoGfihAaXpD2crtKNgg4fRhl3MUVNQ13KsI
VQHh/74pnCw7BFWfGrYFlpqAuNrU0b87zaGG81o78NR22PHvdcP194ZQF3MR
T18vBnKiwuv/PH4O9aJjb7z2ZoPiZCFuuFgIXhXabtn1KhfUbipHW0R2Q8O+
4fbdPdGgcW1ytbCyARpbzxXRhZ7AQQmdDLmkRmiy+BjXsGkrHDqkZn/hohC8
xZ3Qcbr6BgymTPnPYeveebXffunTDUfi7kuVTH+Hlt+H+GSPlcOxy0m7C36L
AYqrzjxx1xFMH37vvC69H9oS0tidRrvAXPjObwMzb2g/16fZ450Ppwm/SxqS
1KFj2+rc0jVbOBcj0pErKAMdxAPTVCEjsOomi3eGroPOsivTW8M/go3OmbDH
QTHQ5ZtVRXmaDxcm9Dc/+P4Aug/20E9c7AL72vvv8vhPQvfyvEXG0jpwerfd
1VHpB/R0bU8+cz8Q3FpMks73yECvpcvBZFFf8Og4XfpUmgB9Kq7dETmxcJlz
4Na5C6bwYa1jr4D0XfA6pIyhSA18mLCqcFIoB+8XrpQmnmPQ/9K4/2OSPPie
FPpTEBgEAwkq8b7fuXAjru7T7qM18NFto/KQTRX4JVxeH1TKA59FquXuXpmD
AHXZty/YmfCZdQPvtZ0OgfT0oYWbJTDoki77OdYNQgrWyUQ3W8KQrm7N5hwV
CCvcSyxxRjBUsiaB9+xduNPsJ+E/fwm+CLe1rn07AFFPh/APg6fgC2MPx7xv
Ldz96nynY6syfLX8WBskLQAx4uV7ec5ZwddWr8uSt60gritrS+uWWBh+HMHR
e06DexojaY2tvTCyZsniIK0W7r/4U1f0gQQjPpfaTpqSIWlYMf7tsQ74dlSs
unl1AlLudGwriDaAb9XnQy3DhiFtZ2P4X5EQGJWKXZVPXw8P5kTX0x93wujs
S39vW0V4vBKp6DPrCOO50rISYucgU1IipCuZAliUnk6ZUIesQ+MnwziDMHHD
bNtlzbeQk+t3dve9e4AzEa6MmE+E3IkHaYfKpgFXcyLJ5eAg5MlftYlpMQK8
lPu7TLvTkP9l1LItuA/w04eTQ13coeDJWEBs9QpM2iycTxrMgMLzV6j5e2kw
2ZbYfIfzCYq+abYauTXC1KMTh6NXV6B02ymf18KbgbjDy3JbhRqULj7bG9rZ
BMQzRTJ5pUJQNlEiwRzpAmJ0R2zA+bNQUf/tOV9cHRA5DQ6R7orwogp9+7b8
C0hvT0dtsdkE1W/XcihZXUCaLs8+an0baj5eHvf83Qzk/8h7FD+oQd26SyLP
8iyAHDe7656+NNS7oar0e0VAOXcmcSMlBOp/Te7no0gDJVJ13/jwGLxKHdZ6
raYNlGrynogWcXjd6xZdJJ8P1E2TXYdvsuCNQ8wJjj8/UDu5OUeV7kIT/3xK
kdQ1oH6PnlwsuQxNb5wGMrSHgCYz7bpsrQTN/xmtvrm4DLRgzeNDp0uhVezh
wvNUd6CruhzOP2sLreMXcs/kygDd9rJ9pCcbUKHuRpFsTaBHHwhi9J6Gtrw9
OT1bsPkJeVWhZDvoOLmFYS2jCoxY+e0RPOLQzWWvnNQ/DMxP7ldU75+CHs80
D21lGWAuHk7YdK4Temgfu/NpX4Al3dkk2HgQ3tOEcxQO1wLLe/KFV8UX6Fss
miwX4wH2egGDdSgMPtxZPuC4vRnYyloqFnge6OdnllvfdgP2qdWKoi04GJAN
FNuEdwB2RrBrYBsFPl06VHjl/W7gyLUqZsb/gU9/1l33iN0PnGP9aiLtAvA5
zUpWQDITOJd9IukJD7C+a7k2ni8EnHKP3jAlTRjKGVxgJNYAV/H3gUNS4TDE
Ud58RU8NuCb+yviuAPiir9s+tWs3cN0DCmkesvCFGDQ5VVQO3Kc8OUpbhWBY
w2DZU7EIpgUFRM+/rYHhFJuRzg9smFZ+MVlK2QjDXK0GxQxBmDapnVP7zwxG
nqvhbu0XgenQXqeielX4ttH49rfzujD9ePRX14cs+OYt9LF00hSma/StFH1/
wejed5zxwDswTVgitpLCYPRB5kZ/aX+Y/nXateGTPowubEu4OXQAZgRnjqqs
N4ex1jWcmJFXMHNoA9tfUAPG5Z0lpu0cYOZU6E6t3/Iwft9Kd40sL8y4asRv
lN0BEzbs4KY9ZjAT5yBx3J4XJlqjvxI+7oOZzP7Bk7KfAaeYn3HrYCLMlPvP
+m07BrhU3XjCOB5m3pw/PdezEXC/T5ozRU/BzPurQ8bzU4B3HXBPsMqBmZF6
l9rkHsD3v1P7e2YZZihqs2+POsJkwYcC/qpAmPlbuTbumiBMbZq0/Wf+HGY3
VGY9FNsIU0HHpmJEi2B2y4hVa3YwTJH/UDgVwjC7XdGmMn4DEE7/XmCt6MOs
3JPP/JSzQGjWjXg5/Q1mVbQXxW/GAnHr+CXB+4swu/+HiIyJARDN9ocT2B4w
q/355uoTCyBGPt2cg/nH7OEPQaUzTCA2ytzNV02AWSCnZCh6AnG62ijqCBlm
j0poXGGNA2n3yQzVi5tg1sSdZT1zEUh23E6eHwdg9viH028PFQDpwaPFzd5z
MGt6QqDA+BuQeg+flt2F7f847ovxlDqQ/k1NiJ9TxNbH3MyecgDywZCsOaIF
9vlG7WQbeyD7bAxRoOjCrJFwjZIHG8hFCY4DB+5i+5vTGbo1BuSxRTES30Ns
/6Rriv15QBE+6ZqQboW9H9mPGJQPFJOIX87sJZhVno+pNdQCSujj0NdrpLHz
2cIdeDUAlLrYWA6PHMxKGQiFQS1QGOb53Wt2wKxwoGs+UxqoOykm7bwLMLv+
nb8B2xWolqaMgOw7MLMkxNk0tQ6o8f6MH73+MMO9FvX74lagvrv0VL1NBGam
xjbXz7zGdEf8vBvPGZgZPB10yPMy0BQiTiXqY+vbBnvOb0sGWrJvv5izOsw8
XSp595QBtDb2E1MzKZhJKmj1trsDtJ+CphIKCjATbP0lTD8a6Be1HOprbsLM
GbqSmXwL0BPVPvLNRWL13PX5zo7NQH/XJK8q3gYzcvX6f7TlgSETaGRZVwXT
3zv9V0R+AuPUuwX8jU0wPeYWv90xGRhhccsbiUYw3SoTKaFhCIyxB/efH1+A
6bj5Lq2gb8Dk7bVcq1EM01eF9lSWNANT03dGdmIIpi0siq/WPgLm/d9idjw/
YVpIz3nqwElgvhocpXd8Au70dGX11nBgEngpuTmlwB0YUMzNYwJL46bt5pSf
wL0nJpW9IRtYH3uEXtp4AWdBSmD48AFgzS/5nJJOA84nX/4jD84BW9ItJSXN
ADhl650Du3cB27HTZdNXB+DYrH1asEkX2BF17+NH7YGjdjMv8NdFYBd0Xl4z
GQ6ctfvlN07KAZtoeEg/NB3YlZVuu8VTgP3v6b3243Rs3Q0YPPACODu3HG9c
dwDYluncWEyPONYSM/devQLWL+FrVKo7cHyL/Z8ITQGr19ePLHQROPf2F6ev
+wqsbKi8WJUKnDcGm4bWzwLrkEXE96Lj2L5fRW88zAMs/ocXdhGVgEOVllXw
fwfMUafRW9XWwPntBz8C3wDzWaPP8Ohb4G6qt6znmQemX2GZQV8ncKXHGf/x
NgHziPxBRx4GcPdSSqOr0oApdIRmYCAP3FOPcCG6icAo8w0bMHkJXPsD2ksp
2D373cvOv3oPuFcqE69OmAEDLhyJwy0C99avHWP6dsDYSBlr7jsH3HCxU4a+
kUD/pkH4HlMA3Lg1ZU90lIFeeOJHc+IocJObRte0UIHus6+f7ekD3HSDqqww
Z6BrT+sRzigCNzth15u72UDnuaf2zXsfcPPyTjO6ngNtgK9sTzsLuAUBkXQF
PaBl3Hp/56k/cItEFGpnq4HmMtjJF6iDjX1HY/x4gKaqREs/hAduYbL9hHc2
UBfupjXymwA337vEg3MVqIim9/WwNnCf8A/yeh8AasIF3929ksDN9FBFdRZA
taa8b/neC9wH4Vrl2glA3ZWyGGqmANwEq0cfX8YDhe3aNMOL1WEUQ1k6AOvz
1+4k/VJn4N7WXWusG4PlibyTf9ZivnbtuEv42gygWIhPzTd6ANdV9E3Q4E+g
SI5kfN/cDVyrvHqR3EogU6h+QW5PgHuMuVfeqQjItWYRNw9g+9fesiVBeAbI
kXeWH8+TMJ+Ul0qTVwLyuc2c4uJw4IrLhSs6LwFZ9g9FfbcGcNcJZzs/yQHS
jzNhn/WeAGeWs0g8fQxI3SLWCluFgYNrOnlCNA9Imaa8jevWAqd2r3+k/kEg
GShd6YzDfDlrImXYdwFIW0gWfPsVgBMZKfvuthQQaUrXB/XmgWPRIR3+LA2I
qaF1+WetgKPhoTZ3KROIl9InA6NcgCO+aW36hltA1LdxW393DbDH/Y3efEoG
wuiYc/0brE/eGjSHR2oB4X6OH91sB7BztsvKXtEEgj5Rp2xbGbBtd/TO/nwE
U+VKT9NNnwH7wMlEP4+PMOVydHT90Txgb8k9dMl+EKa2b6WqCH0AVk/LqSaS
OUw+4lmV290MrILMAid9Okxa6jjPBcQAK7ii4W74X5jcevYgpew6sJQT5hP0
7QGfe6F7GVqBteaS17V7WwDv5qTr4GIEzG8pJvxnPAGveiuhQVgfmJGUCuk9
EoDrnCsWVwkA5vmdE58crgPuka9agaM3MJVaOu7eUwfcJTnJRHY7MP5+3Cm4
Px1wh8Qfpl0pBsanc/0OT7E8LXwuommsHxgFljgkjYMJxtTNJyGpwLg5GrFT
fRdMdHSVJxtpAmPr/bUeJzJgIuLdYfkKD6BTulYDNjyCCVe8e2CSDtDri94z
X0TBxHE/jz6fCiwnqhyxPmQME+rxzfrHzwPd0v2Wvoc3TEjuigw77wZ0WZvI
3+wUmFhn5KVWUgi0uU0vE73fwvj32Y4LfdeA1pro5bUQCOMUTd/58v+AljS1
20B3F4yPbqY5/KcLNPvNYQ/9Q2H8Y7Tayl0K0JR3KUTtOw/jPVk4VsMAUH/J
sI+13oLxjnNiaTPqQO0Wq+rrugfjbdXRd0ebgPpIwGNf4yYYb693PKJ5Gaiu
G3YYJhbDeLerg3w1D1D3bZ0ZrDWE8f6m1tPrvICyor9Zw28KxodbjjZppAKl
P77mxsY2GCf6qJ3F9kvJWSNb5lgN4zM92go6AUDxrG7UG02A8dUPufULlkDR
efKJ37MKJrbeFj2exgXKhq/9qctjMKE80OvlVwLkb447tpSEwIRxj0eo9TKQ
S41Vcxt1YMLJbZ2NURCQA5N8ZXTzYSLsic7WbWuBfNQi2cnxA0wUnNepaEgF
8pacQf80LKe93+aQcrYCSFPRunfzzWBijiCm0NMIpBciLW6NUYCTLuLz07kP
pDBLs5v31wPu1EUp2Z4LQLI422yhawW4iL8eHRZ3gDjTYG20xxZw0xMad/VC
gdh+oIeRkg54ZZ61TuGlQEzPr6yYjwX8ZUZV8cd1QPRa6ygaTQF8WZTHbeoV
IBp6iiSd3QZ4dlsG98MgEMVwo6THSTC5P4Pdo+kEhLGhPd41BTB5e+HIA/Vu
IBjMbv/sEANTIgJVEoD10U/pg+27h7H+ynv97jmW/6oGvadqdGHqZcBLwfvF
MOW586pjsywQNtxp3xSXClOKYo4hzsZAcHh2UlHbAybpH1hO9ctAeDX8R4Jp
CpPPLeVFlX2ByBfmyWPmBZN6kv/0f0gC0cOtUeICBSY3BCEZC+w90/+77KV3
APAjbCeiTxQQu553vLG9B/jyO60l8oJAXFh45n0ee+87R/m0+TcBac/PnMvv
ngHe9lhRuNIeLAfmkB9lxwFeK+3gBi4NSMm4wIRbKoDfqpFZL70EpPYKAVff
EsAtag3dJb4F0sLipry4DYDDF4okF8QAWeVV9fGbSYDruVsh8zkKyM7f6NJS
7YCrJ/Gu+l0E8uPTvj/ltAFX0lk14y8F5P7Nn1WU/gEuW+OA2bP/gMKzzt4E
CIB7sM/we6QjVnfyh2rEMZ1I6gg6n+gElGuOlx9odAMucSbhs30vUIqLGgeL
qwCX0qCgpu4NlHEKScm2AXCPt3PDft0B6haR264XRwGXLx2uxMT65viOpXIZ
TEeqWi4fV4kBauiP/hWWEOBalhQPdxCAWnffpPusDOC+fNpT4yYOVPpAnefX
WMBxdFvbp8SAtqPacrtrKuD5DijmCVcB7ayM5/MnLoBXfBtxvjEBaDGCuoFP
agF/smtg9xoboDV6b75KeA34G2bfF2SLgMZW0pdaXgP4nKMNFx6tAn3nwf20
iu2Af1/S2q8RA/RTd7110/sB/9stzS0e05k7a+I/3zgIk+7ta/mejAAdb3nP
61I4TD412Vxz0hPLB/zu3ZLTMInjNvaOTQBDu377L4zXp3aWzippGgDD7Ziy
fuwIVoeuMekHuMBIenH8TYA+TJUJaJopdwHjNfHa7wuWMDV3P282NxMYk59J
AQZeQEhs+eHaoAxM5Wp41jKD+UznSyXRamCaq1UKdIwBUfQP82XtEWB6ezz7
81kdiId3DTlX9QIzwcJN3VEYq0sT/Lj5D2CWTbioy8cBMcX1F1O/C5hdvH7S
G6KB2OT5qqTGF5hTXV3eRTpAEt1Q0rLoBizhqeRDTx2ABLGnHDanAEtReU+V
iSOQrrXEt2ocAZYe89SlIFEgPSky7RMXAdZp8c3sHGz9gKKOt9huYDmXE9db
8wFp+XAT82AksK7nVf8ex/RGbXjWzPUlsMKnv1bnHAayI6VxwUIHWAnpO1+3
WwE59eIbx+BqYD1OHNSeLgNyu5ID6V09sJ4OVneX+gL5h9Fkz61LwCp1WhT7
dQ8oCulHzzVgPlil5Z6E5RrKha1X+RrMgVVrrt3S0weUhBq+DTpEYL0s0Xpl
Jg6UFtuqO3arwKrXf6aQ0AOU2ZVP5nEu2PxWp9tEGaDKPegp9bAGVs2elorq
T0A9v25iHkUD63nwCx6jBoxXjhmVrnYAq0SgpExQCKhNR+XMF08DK3esaoNk
CFDZcyWPMmaA9YBpv0FiI9B26nNiVQeBFaeHk5QcANqpbbtaIrHzuP2FKXQD
45fwW37tN+yA5VU/+LVpFGgv9JVdDwoB6wIpCN/tCzT8pUyV9mPAOu5iFXSV
DfSNBHWWRzmwNA9eI+4pArpu9p39DDlg7bx8aXcGHuiXYg3m9WyAtX7p6uAo
Nn7w6LTkF09gchaOXuE7ifHNq7Y9FWLAHHI1KVgbDwzhXwob5/yBmVmxOBvr
BAydvy4D2lgOuJ21u+tpNzCcxnPz2vcA84JUYF1bFTBiYvZ2SNgCU1t3U8m6
48Aon+6mvtIDpui/xOKZg8AYEPAoW8Xqfea2QrynNDCmP/jsOd4IjN7aJC+X
g8BU36zed0UDGMGpovLnU4FpFlB92CkaGGfPiKbgdYB52WbvwzV5wFDkeRJU
RsHySbFWbvJ6oP959cHxjzQwsy2Ryg9voH8K2rPlMgOYtfbn184SsfxtW5G6
B+uD7vrVQnQX6H6XahsdvIA5bm3Nnv8A9GO1/xpWM7BzOBBSRcbORfzkKzMb
EjD/nlJZPbcCNJqReScZqyOBzDe3Ow4A7dWzR4QvisCSEBLVFXkFtOiE5x57
Q4D13/P3aN4LaJZrFlP+ZWJ5y2tz4dgI0P7bLm/1SQFY+481L27IB+o0U+qq
+B5gHdSzf+qUBNTmsKW9MiPA0jXdde4tVkf3OGI2ymcw7rmyqDcSBVTbYzbS
Mh+x+ZpnWRmrQFXILS0asACWtnQE/oMwUH6uffH8AHbPGnVRG0YeAaUjUWlH
kjCwVH3OnvnYDZQHx0nlfOHAkj9zJMfEDCguptXnCJbAknKwKTGOBcq+fPeJ
d43AEsyApc9/gLzq/HV753csH65xLK3D+uxzTrtxKhmYc0/Rs8kaIBe4kjbG
Psb4M1BR0GcXkG/29A/9eQbMgaQ1C+9ZWG6Y+FPbYgrMRvqNHeu2AlmiBoXn
9wGzMMlY54QvkNg2BgPNDRjfxvwUj5AAUivBnampBMzrYzX2p22AlG5P6YH1
wLROOykwUA+kq3jV1dhcYOq8hldGmL8Z33DpTfAAptS5Jp/g30DaoWT93UEJ
GEs3ojxc9DD/3Hp3JtQB421p3mPRZCAOHuGdkbLHdNTdUue+CxCr0MPlryxg
eM/Fdog+w3IF8/aBGxjnmVjGxt7GdM/sxapG/zFgSMfcbr2XB0S1P8TBk6+A
/vOxVVpsIRC34K5nx90D+of0B90NwUDgNpAeF1OAnv9QY3iUBwjNm9WiFMex
Ontak39eAAhJ/d8ltBeAfvzDP1aoHRDcNsq5nKEDXUopNnnIFQh641d16/0x
3+kTv7azCgiS5jKpFWFAa26l78yYhalf13XkgiKwfLozxVrUD6Zw1kdLXB5h
+fTnijQHG3fyubkwujDus7/1YeADTFWn6zgGZgL1j3twpd8GmHq6nrrGuxao
ff9NPUQ5MPXAdfVowCmgZpZVyD3EwdS9lymBv84C9fLmrXT+SZiK/vvviZgd
UA+4xRyeEMHGxjJ2PQ+Buhbd3dr5F6bi4rdlm1gBZUin5i52v1PJ/debOkKA
kk9oU+Png6lswaVoqwqg+A7ceNAgjPGMOe5tET9QDEXDtTPnYKo58r5vSxZQ
BHuyq3MuwdSXZ23/9q8D8uTKlQe/1WBquj5hTPEzkKv7rznIDwNhc4HuyjHM
DyJNBA89/gGEfS5XjtpjOcbyTmjv3XognKcvOwvdALJCYsPgo1YgRCqovp7t
AtJSZOjCRBYQqjcG/Q2JAdKnG+Bt6gkEQkxDznAqkEp85SrWHwHiRiOBX2Ev
gRSaxFFVagaiol+SgslHIFlNLRmYSQPx2Dkbpvg0kNQDDUfDFYHo/nFrMhOr
W34P7QdXeYEYM17slB0MRGrTRO0ujAfLvOTbo1lA7Ih/YmVPAGK/z3y/NObH
hZN273ktgTg38kpTEKvDux/sVjIGgCT5yOY5dRMQ3eZ2aB7OBtLRTZKU7V+B
aLLtys0urF+uszV1xelAVLYWtzd/A6SnUmG/uq8CUfjloskbbJ8fI5dscPpA
mIvPMuldC6R/fJOxZ9YDoUcpvBLLfeR96QV2xti5FLiW8AUWAtlNkPfR+rdA
iDjZ8GUfGct7NioFYViic/v548Z3bSD3WT9aIW0BgnnANqlezHdXuIc37Y0H
gu64FYejDhStNU8uXaABQXWvrlnXMsYh/j2vJ88DQS688n5jCVCeqnrNTw4B
QeYTfnFjHVCGNzD4074C4T9FPXMuC6gCLGfqlTwgKMZeLvqIgAqv3o9zLgFB
g6OJL38D1ACznxfmsD4wtsosVlQC6vPkF1wP7PNtG2uXX2YBleDUfjs3Cgi3
BJvvkhqBtrVApKYZe/8HJ7caZwcAzVSr/GXIHiC8tjtwqiANaMF/+75qYX02
tbdlPUgBrRK37sZvPyDyjjUJnd+C+egrI6JQCRBlaHLaIaJA33wVf573OxD1
9qkZZH8Huh659r3LHBBty/k4R7D857lGte1RCBCDIEF6bwfQH5U7b5pvAmIW
VdPwkjvQW9pF9QWxungXrVFshvkTff/XpY5rQCTz+/V9WgXGZsImEZeTQBJw
KgtTuAgMjVd8Gj8eAknz+omvvXhgWGeLWP6TApKjXNX2/+aBEXA79FXzYSDd
dxGIPucFjHSDuuvKpUBqFLyPDl4BRu2IScyuXCDRt1jZT9GB0a/O49nnjemu
RdZPyzBgULTm/4oeArLps3KFzEvA+D0RPFqE9U/wytLRB5eAuVnUmvfcRyC/
0IGeUBYwd36q4CgkA5mkGepl8BuYquul4g5jviE+KDCnZYz5e3nbyEk8UMxm
m1K9bwMTXplebyYAJfIGjt4vD8zjuxiGXeNAadC8eJ8qAMyTdP8zehgXcEV7
+AdKsHy63r3e+yVQZef8fetisPmgIZ/K45jPVSSp2GA+YGIUa43mgZq8U8Za
F/MBQ+fF1ZVKoHYoHjZJFgbmgfGzD2x/A3WxlP8WcR6YSnU3Quy+AU0l+FtY
aRzmCzNs2awaoDlG6lypmgMmfw7v1W5noKVmic3yRwDj57uWnVcEgNZW0EOs
wM53yu3drnfngTYXohyQxg+M7uyLWQepQN+1vj5DHzvf59cfDRb3At1CNukv
5ueMpEWBFZ7nQA96WSJjhvnMNcOfg9m/sJyR00k4gX2euZM0axNWN30t5eSg
NGDs8fwmnPED6HNrJO5e4QCDJ4BtyawBhpgpx/LmLqCP52Uu30sBxgHjrhDD
bqC/HHL3USMBw9L+SXk6xh8JCX1LDD9g+Ebuix6RB7oLMd/+YxYw7uWb2sjK
Af0gu1h9RxwwCsr7LulKA12g3b/h5kdgNCS3d+zAfAF/J27z/cfA+GDkG39i
PdCq9YUSFueAgXtlFhaSA7QIseU6UT5gsKckJY+2Au3MbsaVp7eB8aue9hn3
C2gy8f8aTB4Bc636fx3rVrD8Yvd37tY1YG40fvhwvReWX5pFXLOwOhCeuZZy
KA2o97vHo1z+AnOrmiXv4nbsXrNN3lRjdbR1yeoTRwLLL1ZJbaMnsVxo9W++
xg0oP7ZuKx1WBaaQvv2dm1FAaVv0DysSBCZf/dx1mydASd15qNNqBRj/Wrob
4iqB4li0ktWH5dMfTpfOeiUBRa3C4NVxPWDQcnHesnuBvHzqlEGoITBGwl9n
4R4DeeDFkfv4BmB0CvJsUqkDch59asDlGTCqrU1H9kwC+YZkTNeaFmBkOidr
dpdi+cVhR0DyD2Dc0T8xbFkLZMnB1ZUHWH5wW3JVH7kBpOkH3+N3VmB5oWz3
h1Q8kLqa/vnfo2G51Nb4WQnmI3nuN9/rYHmEd2f7/ThtIAWVtX319wA6edPi
7ZifmK/kB58q7sF0Qi9ENu4CkDTc9rV87AR6BpL2eKoLJJENvpeLp4HuW4fn
/J4H4nxhSdVcBNBNVL9O6VwE4rcTkptNJYG+3VS9VgTzq3ebPz8rWATazC7J
HX2tQCzhSfW/2IPV9+dqk2JjjOu02w52+ADtYcC8+GlsHNJ8RVinHmju+2oH
Rk9j+SdP8p/tJqBp7QigO58Eoh2DLZN6B2hrLwQZR2M6drrU5xOdDtShDVF1
K5iPHSPlddiHATXfhEqrZQLRoIC4fhDT6Ws6ToNfU4Goy/qxMlsAVL3lDfdL
sP1rt82F0MhA5X+t/Tp6CYg6Svrv9Z4C5VtMUDJuFdPZ/xLxwUeBUpLomfhV
C4hQPlZT9Q8otzgVff+FA9G01b2YXxkoR3q6dxP4gGjpUCd7wQEoIoaSh58U
ANE5/L6nihqmV7feGBtifn1921LM2wggv4z1+FrxC4hRCufj+XKAHJNxuf1W
BhAfZx6ejuIC2bY7/NfSRywPuuaY8/Jg/KnRF/duBxC7A+r3UMqBzLNUO5kj
CERip4I05oukcb2PZ8UwX/in82Nv4iMgvRT5OhtzHUjSbSln2+qAlJQT8fEM
NgZT4oHWbUDynA1rUMW42K3RVvdDMJBMVSyDzrwAUvzij0SpMiDtcT/b6pUP
pOrp87cmPIHEZx4ai8KBNPGn/arJFyCy2uvnZrF98vd29285BcRPhNBWX0Ug
62rusNyNvVfDO/0OY3Mgewn/Mj+9iOWLaxq8UaJAztVT1nrHA8RUXosoeXsg
f4o/RNScAWLEY6XkE4tAWTuQJHIOy71+Kt934jA/15m64xRdh9XBFyv82RGg
XEtLcfqkieWc9Jsn+eeAUvw6bIFvGYguQZ9HTsYDZWKXX/FT7BxdIs+pXh8D
6pYClQ+latjzNcqFxzcD1VRgS10Rlmeurh1nt08CNVz1poHeRuz7glSlynOA
+nLs6b4ZGyBG8qotvLkEVAZZ8uugGbbfYu3GDXoYF0u9Zl94D8SiY2wVA2FM
j84NtuZvAGIj7tAxG2OgRTlePRjuhOV6a19laADayy02DVkOQOQ8OVj6EvN7
Elzq7fqK+WtulRxgfCfUlnD4ewqQVA75/Dqrg/m5N8/b6OdAOnWxBGLrgO4h
GfpkrT2Qbk3JrTw2B3pigeGX1QdAyikNKLigAfRa0ulBFyw/dqUuDwVcB/rX
N6naGFeQ5gL5IyvTMC7gpesc9QOyjMbCds9kYIhUOt72HwPyqVyzb5v2A0Mt
+Yj9RUyX7sQTeCejgHHsoWGMoxeQa/t/nX3MBMbF4vCoZ4ZApur5Nv3yxbik
6t2NbQFA2VaCd1q7CIyQJ5cjBc8D5RSuuU0C4+c49wp9LTmgRFdnJFu9BEbK
YnzQpr1AaeLuq+nEfCTdnNUt5A6UObea5H5bYGQ4VnmnHAGqImHoDAmbf6z0
vPqWBVAdNUTW9y4AI63qvdfuVKA+kp8IlT+B+Qp3nnTmLlB7Y988+/IaGOGz
6l2h1kBd2R3r7L0VGNff3T+2Sxxo+z9lO1PtgOHkuvv4RSxXuVsua49iPnSS
q1CiTQBaelT6jsGdwNC8Xn/TcA/QulTPXyrPBMa2NQyzzlKgzcvdDI5Swfi9
EdXGxgJdRi+Wp1Qc6BM1QlcXI4F+4kS3fp0T0N+s99jwbALoN3arHbwwAvSH
o7+v66QA/fGz4vra+0D3tkhrvGqHPVe+t0kTy2dH4t1k6v9gviogcjFTAOP5
mnlP3nVAXyxb7Az4BzTG7ELWiTzsnq6IW3w4C7Q3fsra6hnAUFY9e6F9GGjx
V9T3vMbeywBvO913GWjWf+0sSJh/nvHoHg7JA5qsS8ZS6RFgOL7UlfqVAlRu
n7LfkhQwPF97frmwBaiNnvfy/CaBccPN+I+IFlCj/FTmwySA4V/z0/YlxvPm
MtabjmD8GZC1fGT+FVDF8okfZT8Dw8/FWbisECik96XKLxUwv9dwKZD5BpQa
xc5/mti5Xha+t6HoHVDCWPcDTMuBYb9m8ZA6DSjm+jssNL8C45TQpc2fpYCy
3czi3hkKMPSPyk8pSgOZDUHbSgOAofRChPSDCeTm49Zx7BJgiDpk7BjcBuTk
e99wzVNAX/JI/6uL5ULX/TwTJpgfTU64F9o3A1nbvasx5wvQ0cibYY09QBY0
G76lmYPx7o3cZ8/tsNy5MW6aPgD0sPdnxtZVAqmtp/p3FtYntr+NNgYKYH5Y
GGx/zhvoGvK05vdYH4Y1m+8AJaDz+9RoXrcGkpNmoeDxd0CbXKQ4HBDG+F5+
bupAMNDqmNFNNpieKlUk1paMAy3GS80rGOMfEdzdG2g/0M4Xzt9Kw/xl5XPi
cu0boCm0GDnsfANEbtY0JJwB6k96nd7fUCBOnXC3e30DqJ1mbPNZTEe+cIV/
l0wD9YGkn35vGhA/pF4hNbwFqlNIsglxANP/w/JsH2+gqhYL6MhgfNixcOCs
1jqg/G7bmXdqNxA72xoymVju6OHRVpjGdPF93vSqUjBQHj0e8qT+wHQ6wTBV
qQoori/MjNLfAnEsUmUyZyNQ9gfWjM9hOkULso59KA+UNf9lljK3AHHBI8Jl
bR6QB8fmnMwwbuU/lBlZkwbkooGRA+3bMX+hNS39uAvkQCXXEHYGkLTPG12e
DQayuUTMwJQTkM7d/HxoYwuQZdtGV50xLr0ud7mDjPnLnzO3Fn/sA1KqeeBv
ngUgDTM7099jeaXu08IIJx77W3eJ+hF7/lvSbU9dzN/S+lcav7QDacX1tE1r
M6aHF0W+5qYAWVEpn/X7C5BsApmkMawezjanXJfB+MTgiKfJl+dADvtuQ25R
B5Li0M9VBX8gP88P7P7bCKStYNN6fRbI49lf14hjdbE2L++MjAJQBF4SKw9h
/vPzH39Qlj5Q9Jo/V4Rj98L2nb8uvgYoPjEN+AsRGC/9bdmw8zHGk/j2b/PD
2D1WtT/xHQPK0ENn0q1sIE7GH12+KwXU9X7+smX3gEhI9tRUx/Kozqm45kw7
jMdbVa+frgaq1/Ti2yksl0yLuwjZLQD1iZxaujvGe78Tq1AfxpMfGz8KZaxi
/iuRwtXsB+q/MK6jG5bztpW7nOufBtpeoyOGGzgY/+93JpYzgeYwZDvlh4B0
LKdlZFQNaAlruux338bqeLBSlNcQaK8LrJ+e3AOk0DfeJataQCNEH7nKNQVS
7kGf6G+YXvHdcXKaxfymRcnBQSIK6OqeJxolngGJWP+Wtn4Q6Gd9VEW3ewJ5
w8UnpyW3A/2mygV583Egqy8EKCkHAj01qierhILlF5dS5sksoFda1SrwzwD5
7q1ivTdlQO+Kri9u9QByDY/Io7QkTE9/LeykhQAZT1icFKMBfSb7cEyBGlA2
kQiy/8UDfdVq8xa/D0A5PCbAX4Lxp+DWzjXXbbB7ePhI4PMMMCQHKpo/cYGS
R3y+Q90IGLtubZRXqwbK57QmtITpkPxfw+XBy0DluZEHLCIwFNza3c43A1Xr
1NDEMOY38qVaUlUPgeqxUPFeUBIYMj2Xejwwv8k4GPG++w4wJN47UY40AbVn
grMnDtOtTbVY8MTy5GL9D1IL5g8ria1hkZjfKKQe776RCXTuFaX5BsznrfS9
7J5eBPqYlWVO3j6MYxKnrfZhvNTusdnuozzQnp8pPmuD+X1ZrbrltUmgfbUb
6BbEeD3xXERh6HWg/blr0Tr0Feg+HhXzop4Y7z0ZdVysArq5gPhQ7yOgG0fv
ej+ZAfQ9Ll+mXzYB3X3LeqfdjUDnSQsyPUkGetR/TXy704E23rocyrEE+pP0
2fO3MX+oFc/RVzoG9Nenlx1/38R0Cz3dGrUP6P1ay4JXk4BmyzYqCb4H9CnV
70M2u4Cm3HU7UgnjuBlZulfdU6D+ufOhMxzzv7/r1za/kQXqB3OpspviwFjf
WRb5owqo2Q43D4hiHLnpfFRtFB9Qr9C/nNxtDAyhutzoN/VA1ZZZ1jgbjY2/
ev1p7cL6Q+/AL3cf7Pmmb71/LYHyxXdLA1sb45Mrxx8r+gGlYE5XPk4I+z5S
bpizP1CuL+6NHlwE+qymVv9rI6DAa0knSQegEy5RGWnFQNniGiZhgun7QNK8
Q/oCkMn7RFqOqgK9oZnnfxWceThVbRTF00CizJJZQmSIZGYbQqGShKSSOZlJ
lIoUMkWhZE6hElISKrNUMhUpFfcMN0MZSimKb39/9dzc7jnvPnut9VvyWNcS
BUSV9VmbVE9g5rKxvvvnCcTF2Q015jjncwlbq7XmgHC2IQpycD5ubpT4ngDk
2VSyeJgNmCYPAyb8jgPBO+wxqol5LZmzQeLKUmBMeiXuvIdzmjflGF6LnN1p
s76VbMXn+bZ/n2QcMMqbwmocce53TpSIWyN3X/moPBy1A/fBcbKZ5xIwTtav
bm4kgbYp09jSqw0Mt9jPgh75QG+48TXp4D/0T+ttUsXYW3/6aFqbBgHDSDk3
cM8KoFoNqo2erQGG+tYvU/vcgEqztlZubkWOPJ6Tr8cKlMu7b6/ds4Ah/aeE
t2EXUKqrzebXxAND8uX2F8KbgFzcmJdpxo2vv3Jcs8c+89rlotXLLcDYcPiJ
0tddQGb9KHRfXgWMTesPvxI7CKTHH47ukhXo70q6df9agVSb6Bw3R98wZR3X
2UNgXojslnbAfmmfnekmgj22szmRr7cBGL79tvwh6Bd5Ck3l37Ffxl7dcCH2
EhCBl7lWWuPn33yqsmzPGyDMtLhVwjBfW6XeX12+Gggxh+TmtTeBMZL5J24E
zz2rKJs9FAfEml9siaXYb958mdl0eiM+n6WOLtx4jgdPTaceOAHhGut5R/Ms
MDLe2+Qc0gAi1WJVicM7YJx2m4EdvUA0cnRnKZYDw/O816QkHxDfEyz2ZooA
Y5/9Oo9DB4CUOe9y058PGGaz7p9hBMj9FTUGY/hc9E6GpxDxQCa3s8ROYH5s
nZJRKrwAZEuk29gg5uAWl4a4d0NAziWPbFTEfFJ/x9eanQPU5uI3QqY4Vx2r
7coZQkB5nBXeZ4ecYFI3PCK6AFRW+0udaRZ8zuvqsq69AKpbO+jWu2zsZbbr
Nlegvy+LuTz4Eq9/Ym9ZTk4E0Fs9Vyx5cANzc/5ph9kc0O5XvE4f8gVGqYJG
jOQzoK+0xdftVQPGq+ohq9fsQNc/fZ05KQuMibALf6peAj2qnbCU7wIQ/Lqa
30fvAZPr3/ElrL+B0HsZVd0ZBMwt3dOdZtlAeH6tiiheDUzbs8GG3BJApLtp
RV5HrgocaF90wV7XMtn/bIQX/eq+rxDbDyB+WYqm7gsHZgHxcvev+0DKK1d1
NbsC86HlqbcfkC8OWvdMyt8AZlPXha4lmJuX3RMzdfcA87VDTDC7OpDtEo5K
SXuxv/QNbU3F/rCgciI9APOiX6+vsyYOKHUzp44OzIe3caVt6euB8uZXjdCx
AGZn7YPdh9Cv83YYz3tOYr58sDIoo4F6k3FqTc5O1P3M12WP24Bmvddf9i4P
mLfEV194ZgK0lvFH+WdJmFf+YuRJO6C9OLhoj93ADGU7vO7PdaDTn3nyFUsB
cz9HY/EOHqAb11YX3MfzaxVVWbqhT472baiMlkB+Z5te24n+y/U45uck5sCE
2xZOecxJtdhuNdG/2CtmZhNGNIBps/qoY94foK/9lme9TQLTTyg+oyAbaO/y
dp2l+cCMOZ2Yt0QdaJ0jSZEi74CZJahGl+J1VtpF3/kggjnaOLFkcRCotx+y
f7VhLj/2EBiWbAYqX8/47ugZYDZMiDj042vvV8OcX48Ds9Wy4q5lHs5t8KiB
At5Pa+jILdkEnOvTz/2t1phDflYi3Mjz7W2dfTqYwzUa9Ol/gciJO95U+00A
s/SjsbP/USAPXec9dWAamDklde5bAEhl//Oiq7iBGf+PuLtkPxCLkXPfp7D/
hMyo/nJHzutdU5TjhfM4UNL1zgB1XGRH+p64CUzQ952TK0EeSydSONCfJQYk
//RXAbFvhW2CSTzQ/wpVB/a0AqHyUTDlI/avgY7RPeGZyPM7SfEdTOTt2H1G
nsuA8S2B1blDD+i4lStdJMOB0d0g2DWG/uoU+7Z0WBQY1QKVPrz4vFSMIx8k
IH/mVxixf1oK9JLQsN0c6I9J5U84r4SiztzCWT9GAOOMyqnxL8K4P7t1cmxe
IVeacbxv+wGU7yl+tb4+YHivWNbnEw2UrlJu2OGHwHAPGw04xwBq5b29/oqr
0K9vrz0XUwNkv5Gilhtyl+fV0n87kL9vbtY/9QF9ys8omoPKBjKo0WbKLRIY
YbkKWX78QBrrxF/ZmQCMmLxpl/AZIHmHp8TNULfXtkwE0gnYt3+vs0r5AYx7
xoK7ymaAeNzYHJmBPtF6z+7i41NAJJ8OdizrBAZj7+P6I2pAeHgJdj/vBGLJ
msRPw5h7hnV3bAO2IXdXXo/x8EE/LWNc5sO/N+PebyOxgBwd8tbaUxAInxmV
moop5Du98u9x6MsZso/3ykkBo03VT3hVF/ql72pu9+2YY+EpQz/2ATFxUUh8
ywgwsjVo/s9eQIppj869RY5PjLGYenMbyJ16/DYCd4ARefbClaVrgDxjwb7h
xiM891aekkwKyArR04/PYe8KfrgszvE7kIR394v/eT542TdWzSrsm+PBx3rx
80JlX2k+IIAyt7Vl7UW+Py30186/E6jwAxb9N0IwR3r0iYefgLrzKHaXyyT6
veEDkaEwoAZF/9W74XMusfkxYLIN6FVmb/Mz/ZBnJ6RrypKB1vzW3bsPebr/
B0+5QC3Qrq8btMeTgPFD/3CxITfQSTcJHos8zPnCSsuCCuRldavtV74BoT47
kvTjItAfDHc6iuOeOrI5tpWcA/pvyouf65ErorKkBGXrgSkynf6lA3vH3TDn
sjYl9Au159XSH4F455x3Yw32yj3yrPuztgO5gle8IRe/7nGvO+WePpDq27V5
isKAGZb31EMO+5xbXbvTuAD6AlHluFALZIZ0sjYn6ijVWXoodhh1q17AZiML
zGtsktXX+TB3bnw0iEA/u96R8rvCFiglqb2H7e8CM/MuOIknAXXYpe1LN/J6
WuF4qZwG9kth4TQ35J6Ep3skRu8D1TjXofveAZhnl0vHNlwFarrGO1kR+4Bf
wjLtgrdAS7/33jVaBkyH1G7DbGPk2+8ZeVfPAtMg5GOEigPQUaXj2im6yEUu
MWJ5h4Eufeh3x9EL6IWUuKpnh4B+W9NznF8JeVT3JmOeBvpP8IquMuzJFcU6
x/jGgSmc1dlzRRnoC6J9AfGKwNT8ZfqzHd9vN15ut4wV52a5j2FWDLSs1wbD
QPRxj2Py/uoHgPoxLr7yDfrnCaXktVnngKrvOZ6fGgDM6KDtH+A7UPGnLH8H
NOM5pZwm2E4BZWt5IFkS+TV5k0nSAgmUWJFJ3/U+YCZe5LdX4AWSOd3VVI88
HKOX0/r+Ne5rmlbLqRFgnrL2PbMc+fLkD8+kUz+Aeexdu9zIIpBmIeprwueA
aT+R0t6fBSRfeBHHXDz6XY1EnnIq8qeb5hNlMWBKu60s0UR/fJAq8mElzm2Z
dK+g0AcgYvfHXVP2wR6mniUyPALEId6V72VxXtXvH6S1uyDfsPetMsU8Sjoo
oxCZAYRAvPqM6GugnbmUn4A8MH71jbfWiwC92bSS+oN893FjeYoinnvhwPXr
T9CvWh/ds03oQ06vUJxbeICcVCpc+ZQdqPSig/4/kd+KFPuVQytwP27yBKp9
BkaOreCXIz5AyfMc3tq3CxiZ6ooX+O8B+d2+rcGwFl/3757bwQlkHcOjNpYV
GHk6Fwr9RoGMEVIu5sH337ZP3QDYm/e4c31vDgbGY+F5M24HIMVVVCLO5SOX
HJX/+WsFEF8H18mX4v2RYvGHDJKAePpiViL9NTAWV3V8/43+l+rQqXm6Fgjx
+S0yYuhfnkONepnrgTCumLDi2A6E0X2nkw0eQBxlXlL1xTlLrBsXkhgEIm33
hbj3weiDh97d/Io6brxWdjIyHRj0s3XadZhX017T5nXof12+ZZ61T4GUPjIy
LXQe/SFLToZoA9JeMrPEBHmp4pjBKwvkv0SDzU9m8b6K/8Syh1YB2WT9Oku+
ArnVYUPNozQgf3+1cdS9Boxbl/KUJ3DuKoU6O6IuA+NublNm0F3kPbaQviyc
26OT6fTBZOS9uyb81QT66xq3fRabMYfWC+onfQLGB90PSNzIeyy+ZuLI2d8H
tTtOCwG9hVFOzt4DgqvuWo3UBqBdDq/YKLsBiM2FcLDYEuhkYekZ5hTmqDVX
t90o0I9qRC4vIM+dDlumk5gE9OAIb/UXNiBKXlRnNeDn/9s/f5DTHoj+b6vv
+yBnCL/Q/jCPuc8W3UeYb0b++63fc9AHSB2F+JG+VcDcXslxRrgeSN8orEKW
qP94H9cNR4C8wdF6xZWJvfNVjX7pKyDfHY62nFwKTO9D1uzJX4FazRsrWncS
++uWz+sO6gFlXKM0cf4AMI+ax4Xz6gN14kuOmp0tMI/kspxNxT5TqpYtbesO
zH2mCdrcFkANbfbVjcCetm0f82ROHdDc4UVSVagj5Snl9Hfow3Bn+b4+1LGA
QcGr8LNA+xzRY5itB3o2xK5ZdC/QGSatDq5hQPd1DIWqawH9ZD4tagg5oCLh
g/RtfaCHtd6zsg0CHfs3kO0Pznmx8ua11Tgfp4AXdYewZ4vIxYt/cQJa2chd
9x72crVDSifD/ID61xH4UmAAmKYyzVlXh4B6dZyLju8C5l67qKZ25NSrNxLa
36H+nXrm3u8Kxx5WnzgpiD5/JProXD/ymJK2vo4K/vsjh0e968OAnD1z1Ofj
I3y/R7r9EuTkxoXsJxvlkBfzM3+4nAAySV7bMlkN5yClWDCL/rLf51LQ/76s
uiJg5QLur5z6z3Lsncx1ISbrc4eRw8dJjUu5+Jxz5s+6pgDRPsvFElIK9Kcn
HFKCC0DkVKebTBcAXct9+ew05v3xizJynVFAX6aHTrxQB8K6Uev6ji7k4aQP
K1L7kcfK7L8+dgZa98hh5lPscbxXvb/nPAaaoz5l72kZYPypW6cSj3nzYTW7
mjoTdbZbJ/4vzqnowVrTbaj3vsj9w1PFQAWJf5ixkgTGy0CLG39w7/UaXP0m
VgKjRaf3ah/mDxt705KEb8BoGvfKHXUFssdv7TldJ9RJLLvqkBuQ2c45Y2u8
UbdsUqqFNJBeeyuWRx9Dv3O85DTRAOTW6h6/A6i7CfcnuXvcgVw+93iMB/1g
xdJXyiEiuO8xhxWvoo4kWT7us1MF4k4Dv9arYiBA3sfVfR0Q59hyHMzrgXDR
aNkRsxIIp0cHK0tGgYj7HMmqgL6hK54Q5GYGROXrjd9uY/8Riw/eXVYHxFAx
catTEojluh3AdwhIrtXykQYWwJg8JkroPgPSMD2/Kgx9dshcXWP/NJDBbycG
1yE/vZl59Pb9GyBLHIs6tJFrXyc1TjVvA/LTA13hbUuA0SF1a/XQRqD4vOaW
eE/juR8+MMjYD9SOFVx1VjzAGDBUjGa7DNQZ7iTe18g/dCWUH14EqlLA/+10
F/blCRl2zFGKyrvzSxHnsKZjz1U9F6AFDBRZSw4DoSDc9OnVTqBNogfvNu8A
YkeOS44b+on/yoxeT+Ry3zVR77/fA/qqt/h+o9fox24Oz2VQXzVTUd3W7cij
WRI7Va5hnm9c+uniM8w5j/NfBTCfZ3pLtrkh36wJmdGKYwcmZ43Fj7XtQOoF
KNFfliAflK7anIH+cezft1+JqOfN5yqFd3Hj823I/ByH/U1PjC/BJgnITvtf
1jvVgWnialVwsgSoJUdIB7NkYJqZsai23wFK7ZSY0z30k23PzmVNoQ7dDFku
nj6EPNLJTGyTwXzbaSurhZygfo7T+XwIUK1GbJbXA4EpM57yW+IWckMdjtUR
mHxyFbO3goGWPDi4NtITee7AulipFqAtuorPCx4BmlFZ/Ga5FNBBtYWKy3E+
za5rS88g9119PSbbiv2toKTgta8qzuWZRMVv7JERbfHu7anYX8w4o++6Ab2P
Nb9WHD/nh5zqzVD0I4XHFbVvZ4G5SmGXr0wl5rTql+sN34ApJjGQP+IMVFeH
YlwGzmXTsPuZ2j3YS2i/FzXvgamxc+nHRfRFv89jSVU+OKfdZ8O6tgClL+r+
pekPMPU/FLSsMAWKY5mnfygFTJ0xq7yL6OMDc17CCs7o69GpV2AIyGIvlq8H
8XpyDyt0tmPPDq0UU7wlCMy16UsbgruANNcXa69En1+27V3I6ztArjvGm38X
/XTsm2a2810gvl0f8V36CujO+qx370KAaJErmEz//+c2fianP7qM/uJ5dV01
ziGhW1818RgQ4XeftFnlAe1+9XfMBsz9/Qa/rnXeAFov69Ynk01A6LmHRN7B
3syzWcoi4CwQ0k5ilkdcgSLLL+fZ38a9dWC7+kIUqIdhj8yderC3xCw9EoN5
Ej0hEhJxGhjTq5T1v0oBZXN8v1QQ+snIYolxSTpQkqG65zkLURdh5seuoF9M
7B/PPZwLDGaEr8qTK0A+iee99zkDGF9XjXbebgQywX9+m81u5CmhmUcbkPsO
BN8fqqlBXV/W1pgWAVJxXnYwEnvXWofZNHZPIJcc3ZsxjH6hbKZjdR37QL+Y
2+3aL6gjBYl9bhZAlAWOzeVxI7d0qL+sYwJx8YnAGb2j+Of4SHgm6sXL4uf+
MeSZciP2EAElICw8Ormz0W/eRTg+5ZTDfLcOtgxDHSzdvnUy6ysQwoZVVeg/
pMoOvYK/CkCs9Bw26ejEfi6xVjJeGRhz38xlt90EMtnd4N/9qziXidFgtUkg
6x+86d96FHtzlGzU+Vwgp/PDLvkq4Ouy2EcFPEBJ12saZJ5B3jiR5869Fqh9
hUf7Gg2BMd/7b1O+FVAxw7cKm8uA4OAYNfG9AVQdhznx4TvylueE6pwAUN98
s5w5sN9oPZie9TsBtNiFMXbROCDsKlZksOxAHQ2w77n6D/eAaz4oSRPokIn8
WHm8/7wIcYvdW4DOcjoc4zoAxIvLbDLK6CdPn66Pd/w/x+gU+13IvYOPFuci
0DflWEjbdai3mXl9yxEpzEHv3BeO2cBkN99oumscczKHd8tG3Fsht14NJWsg
m3kSPiilAXP9pjtzfZgPf/Sqfv6oAaZs5J9f0o7IaSmLEZPYZ2QctpwpOg6U
e+Tq5W0twBR/IH9V5DpQ1yOUZtdi/+K9sXYjJ/aG1396LfyigclicmHPA0Gg
FgP+Uu6Yo2Mtq7rzDZETDpW90O0Buusg/dYAe6ejmbn5UszJcodAjuXTQJ+r
7Dvkpo26YDvOuaoT6GItuxfm6L8uL+2LzwDQz0MYcp9EsZ9ybGJFnqVJnso1
N5FPVurnfuL7iH2pZf34Puxt/Z/6t98QASbHrtNzb9cAVegvY7RlAfUbeb//
YwL6w8nHPZ478RxajOO/pIHSSlaKWT4FTAnXzjdSrEAt1VnbEMeH3PdP/I1+
KpAd3FFtLubA5OE67tqQgj2z0DXh72E858OjmrW/gXSJFtong/z0jX/XzDlD
IDfr9dv6vgT6jfvH1SbPUQf7FU9koN4ffiuYty8B4o1jfFxQPdCp/1wmufmB
uF33rvpUK9DeP4wiP5oAET0pEluGnGqo9XrvvdWYt056Y4mPgOY1mlgIZQBh
enhQbns3UIyEqu/myBtKFiajf/cCVZbFcSzjPerg0MVLAVeACp/f2bU1GgjO
nicB8R+B2qY3IHomBvX6ckeGeSLy54/wQ+7pQCw9HPnJ6xTy6cNhnWrsCSsy
t20MK0J+FVwYfS6N/uI/3J11Evm2zGfJel8gRDv4eUfXAanL2RJrtwx1GKvT
tKYJyFX1fKNv/tf3sVKOF+iDn6zMNqeuQX1vNSj5IoG9bkvJQh3q+GLqrB0X
9pXE8bOZfK+AqFj/+Z8Qntt7qExkK17/Q8RCtBHOaWfA2dbrpkCuVDjdOJII
hPp0IqcYzlPrLtGmSAMhVfL0WUIU5mS4H89iERB8r89aaRUAmb88BbSRyzji
1jQWRgPZV3Ocf0AN/WBq/uFZI6A4l+QNGF3DuXB3Dyfj3hobph2NmQeCf2is
3msAuXsoLv56M/qs2akvCzPI3aZCl4xfAqEpWh/ViP358+Bcbgr6kvWm/WkS
R4Hm4rtbvG8rED4rDZ/mxACtHV5oJorXS5gSd8gSwx46/lL07i70sTQpuWY1
7O9sIgaHkR/6s76/6u8D+lZA+dV2MdyTooT0l6FAN/bfrp6+AKSSpZit7Hvk
h2lOlb+YS07CvD+jFnDPzoWZvTiPvSt3ff4l5O+/Dr0/D5oD+eygf5mrJDBZ
d3YetLoB5NSHmtYbe1EH5naKagboYxkZyqzV+Frz0617q4Cy467Yu30Lvl88
2b4GuSn2xZp9mfb4eWx2L9+bA/XYyC6kFnnl26qBriInoJgLvOti/PB+dmke
tMT75IsdNyTb8X6Xtpjroy/p+zB4fQWBvume7Io6oN2MAiKac4COftazmn8P
9oiCey8iooE+fMTMoHwY9a1mpXMDda1526m7EPOyqSBlvPo30Jx/bcuPteF1
SpQPlyO3DD03kZtH3vi6ivXA7BRQFWdYbrNhP/mT0TUhYw3U2evs6SE/gblU
Ie/pvvVA7cyEOfQ/5oqyPTyBDUAJ/32ooiYDzOVrO7ef8QdyxNw2Evs2/c9b
s0UM97bqb7aRKZ5jumqkbPwYkOfzDHJi5ZBrhPbv2SALpG15T27AQ6Bf1Q2t
SKsFUvZuBDPzA9D331loL2K+za8qz7gVDvSVe66GGykgemH4Zdc80IGJ5quv
JANR+ugQ+yL6oGXHrUOdXEDE9ygwepEz13cTrNOoT5/RmZaXqkDNLheJHvsF
xF5rce6+30C1v1+na4G91MCc+OYbBtS1FxtWDuFeKbNfD2wBoDxtOthufAZi
faOgfif6mPrv3CrvWtRn0nq3S0/Qx6C7SU8QCJGzcup6e4HsKhtaNrUUc+n6
BE815kFOh4IMZQzExv54Y35j1LdoSpMc8oSmsId4wByQBus5cgpOY+4ahXRC
AJA8jrubCOw/LuvijE33AvFF/6TKceT9M64v2z/IANGg116Fe0Xk9h1Qe4V/
Zje6ZrIKANEstEpKYAn27U26pjmo07FXGtXb/wJxpOufLZ8mkALn29MnkQcs
5qR7J1YAady7rTQX+7vWiFRSCxuQQdpzMgW5QGx6da/xrCKQhXrb3Cd+oD5f
qDoxZ1Hftp8/nsEeJzlrn96Jz5vtr/mGvpv49UPNBq9rgdK5Ld8r/xh5/s/o
yHrkJp+efr4mIzxnlUDgXsyDnG8Pt5/NQt/yS9xhg3nxOrQuVm05EId/Dau6
LgNqbowQGRcG4hSPyzeecaBlXp9fHMFzXQ+pH5p9A/TOkiYXmZ9APOWutq9G
fQQ6tzitZgWCFLd58QhzIdVTZLc35gindtEl75NA3/M40fAZuVPz10nbxGSg
W/mXRYpoAOnOcD6Yjf17YLNq/86LQKZHMlyE8XrM2KBmhjeQbXY1//5tBXry
+3OoXMRezJCNK/PBvHdQf7wXzy2frf2DDf3ox11BH6EYoA4s05OXwrz89tXy
gnkgUAmXOffnKmJuKhhtEzoPVG1bdJBSFuZU5MCQMz9QI1JvhH4xga5fJy/z
f/7wyX/yibsEdJG8qEXoOuy33lFD3ZjXcd/HSrfjfTmHDuYUpwDt2RLcmE8D
HTXmu+iAfGP8K7Q6Fnk2z1v31UZpoIXHS0t0rwD9+Fbb+ib0kSmutiLTNUC/
tp8yteQGqqnfRj4W9fjJvDXxD/L6lZqYR43oQyM7JJzY0oBy1Vr81OwO9IT+
xsXbmUCpDngwL+/COfDWj9QT2HvEuWrWaCBntJX9dunDXpSa+LALP5/h2sLC
ugv3vFZ/tw76zZul9Utnm4H0Ext0ncCeUv9ShE8L+6QhcKhw7Ec/+nbfVOgW
kPxZ06PF+FwSyjQcjvEAMV7a/8vUFehjDml2PtjrWok3oUux35ibSt3LaAOi
sOjK4orzQEv0V9croR4v2G9m+ScO1M/wuyoZAUAc2yGsGbMC9XyjpJAV829f
q5JK1BmgMl+HESpvMM/Z+t963APq6Kny0p9NQGgburtxUcglW7Y3K2HvVksJ
YzPAHst6WoNSew6EKkdaz0QskG/JkYe9fJiLj+jUROT1wunneaLoH/oXRd3M
LwEZovJw4APmsKV3ZLFIEJBm0nEvH2COHdq6wWHNTiCFd2XyLQQCcbzK6NoV
PMe04g6nQezxqbfr449h7r/afJd3C/LG/ZZP1p2oz5Lnm1doZgDRd48ltSwe
fWxPcG1wJRB//5V6mY0AESArPv+1Fzl0+0XbSuR3x0sjC9s+on8K5treQr3u
6KgRuSQP5LnRtD8syAUGnONdreVAPtBfN9/ZhXoMempSJwkkFbf7irEyEBo8
g1YffwIlCLui/JGPtSclD6hvAsr87f2yaBEgTJaEOf3CfQirk5t5dg6IPYpT
GxkpQJV4st3dg3N0s5qMbUcf7d895K+3CESEQs6pTMwnlunFkmTsUdfO+X4Z
wD1W6PptZ7oRiJpl78xG7gBtHcLaIi6E/GKjXCC7CXttoN+PI+gzK1YUX5Qr
AjrF/UmlQBn2jNLjwbXbgb79Z+S6swqQzrVO/n6oz4ZAlh+D6Gtpq6ri1wgB
3SOaOheDed0+KTu7GfvzYNPD7C3dQC48uFRpPwn0sP7kLjPce/X8ozebcI8/
n255nbIE9+Gfzo2IbqD7Y1nqfZG/c/k4fkWpAN0e3HD/mQJQ3crDq8PrkCuD
N0xoKCNv3xRrDmgE+np7R8oNSaA3dY6MnUP+OPVq3rITz20reLirOwloe2ak
8SHskycmqrplY4FWueJodess0BmD0qHrngG97KD45KrPQFf435JQxD1+81F+
fegToFtsopoejQNV8DD9c9xToHv10xSu4vx90wS4B1Cf7xf3PHb5jHurkmGT
ugLPeSq+vA31vdTwvW4HXrf/7vDX0UDk6ejR4nEuzNO87yP/cE5XH6akj9wF
uva09szedCDdEpoufpIFuvBMVuYy7DFbnvIHaN0HOuZHuZyPHz6HGVg09ca+
DDWnfDFvB3sb/IsGgDYYcOHpRS6r+pYiJYm+x79N5gKzE4i0V1yHQvOQX4Ti
o8/sACKMIfL9pR/25d8S4kcwj12uON+67wBUVIqpzWrs3zaqxPyteqCsMvo3
eh0Hwnz2bbvCL9zD54Ul49jDtq0q0+bC+xpmENryZ4AwC09jd0X/vnvrXJTN
VSB263Oec0X+OtF9QTUNufWQ5vKPctdRf6I2yrFOQARvkQs2HAFyra5oZbAu
EElfzsl5p6HP9B3sDywE4t7PUwKLr4FoifWrcUWe7x3nbjX/BkTBkKXIIObM
321H6puRf887nm8/hL1c3jc0LROQI9z8Iy2csPe1bNd8j77jaJt4lFcYOfH6
fH+oKBC7fHXFmncD2ahjdaR8DIjtH6qu3UGu/0WtOzxujvqsPCCdvRsoxX6e
2Rns69bfd3rYVwLlYhVUeQTv51DUkQthmKcZ5zv4v6Ieg1Q8BFKC0Nca2tmE
UD8JVU8D3VFvv7eTQ+sdgLjz2KIjhgH0Bn8BDiH0pc628o2XTIC2St0VnYN8
PXuwd6MH7kWAyKe0YD0gpUfv55w0Bjo5IZ2d4zKQe58HZrPFoS/7P/OvSgQy
xvzWCOMn7smxF2NXaSBrKzoqSo9hL9Sq+vIT3z9lNH3/iRfmSpG80LY6oGS3
BjiuWIKvs3RWc4tgHja/fKvniO8XZPCV4H2myCbkGKHv127mFdymjjmUJbtw
TAavJ3A65T3q8bt7z8ONmGPJnL+nPEuAFn9rLDyBfO8fdGnhGCv6v+GeE6yo
N8tqY2MPPJfX27Zr9zFXZLcslArg51z4c0p4pSFQ/2TZ1jsvAzp3V62lO/bL
Ht5zGcew594/b62Xjde9EfdY+2kh5pFjjlTJBFBBkibjyLH088LgmtxUoAxP
KGlE/AL6pXF9og/m9BoV5pwH5tFz5amYCj4gBycN5BuQJ58FKmiaigN5x9Fg
n30+6ldma9WMK5An+XlJTszl7HCNZT5qQFrWjY85hiCX35M4ffMmkBJj3yqe
In978PzovD2Kz0VN9Y7aBaC3rWyJLm/A/RMaevgN5yrOclav7hDmgbDHsqwN
QM2Ex0qcwzxIu9nXdaUUqOdzEl/eYZ6dXut9Ouw65ptg+eUK5DbvRsMDQ6gf
L++P6lbInweHIfnsU6A0riVyiiQBYZcPvAmSQC037bT/i314n7Arfw7mRK/w
g6Z9mCv7bWu4Bo2w19WLxcdJAeFqzOdqj1weMBD/IDAM97BJRusBJ5AmbGPX
5FA/sQWfG/ZVor6+RBif3YK6yV45MRQCxNTKxsYHyOMNjhJcNF7n1ffki8G4
1+Rx1zK+cuR0Cc0r5pnYY8OUom+GApEyN55xArlZfcjLRRN94CShrRxdg31f
1HRHuCGeS7JdUwF7WmoGv87MHtTHlOWSx/lANpUaNZ62wvs+cXfH7wEgZx4H
5sy9wNcvQzfeQd+R4y7P6ptAvhy5qJUsBNR+9nKNwTLkhGdLk/2xb178wxux
XgPnKB2y6jvOrUazwqsN+frK5/3NBtjjmdK9f1s4sE8W9O4W6AGaW9rdzMwZ
iG6ujC8HlIDWKGLvjX0ExEzNZuce9P39crzqWVxAikm5a77D/nlCxbrcdRDI
7U8/CupjPqTYPb3QjDwR+vvbmcJq7G+mYywK2kAWb8nNlrUGurJal5GDXDXw
/FlW5hTQdSe+5k+6AcWxSsJ/CHXwzKu9dhLvW9+KCE2VwK+fKV0WgTntx+iR
CMPPq2x6/OuAAFB5ojWRM6ifmzY73uu3ImfvayvmRj2mHMo6GY29/Pd4hzcz
Ee9PUc3qHCfQUmZnngRdxvvnmU+9sxFo04HEc/zIZRphSgYReN8eUhkx0tg7
ufpHJBoWkT/L5w+o4V7RD/MrHTCfrq0PvN1ZiD325t5xVcy52/Lef3vEcL4m
SRMXUX8P47Tf/+4CykFrh0sh6rhW4FcD6YG+oVxWIOT5//erJeO0J4H80V8b
54+6fhD5M2L8Nfono48P+zhdHByde+0sPv8lzhsl0R/SlqmcXgVAHlpeFD+H
/HoSDKx50J+Vxj8PZGN+Oab2+N12AJLlTIP0hAfQW0+PrKwOB+L9CQnnJlug
OXJsdnxD7noU8UElLR6oT7nGEdyYC5nSK/88Mwaq1PDCsyDMkyj6fOo1NeQe
G3+/SOxJgbIvTQRZgDK+F/3YYScQnsrmL85fA4pTbWLybQJykJzg/CRyWd/z
AVMZ5CovCRXtJuy9+XvyJFyCMI/YuOvyMc98KnmHctD3z98fn5r+/+eJm6tW
BCL3ZfebsoduAnKNnUCBDHJdHRdPXeE0ELTC/rJ+7E2fP+3c+eIa6mpyzkXq
FJBst/+OCswBccPoVdpt1KV6e/bej+j/Fwvtjk/inrmHj7q+wVw7cSbN6hEH
kNcml/aUoj581vNlyIshv1u9ziZ34TnqU0Ty8tEXyi9/+f//ub2PLa9ztgNK
V/n5hjWuQIQI6xY6oh4ChscKTvDifd8cKtKfA+rmUNCPX+xAZLVyKWYsR/6z
KA2ZwJ5eI+Qv0IJ9ZvnOaP44TSA+StXcX4m+qCy1fqm7DpDLLZr7h7Cn7OV2
3DYwA+Rm5pSkJPp60MlG5f1PgDyiwWpp34C94F3Yk+tpyHeersJTy9HXq9PN
L9gD+SIn+HCkOtB32gVOsb8DcnH6WOQAclP5G9fDqyLQ705sehiKe3yvyV7G
Gfu5j5Ghci72mJvZj5JJ9PV8t68s3Ia4RxeVvj5uxJxYUFpliPd7uqOJvRr1
sGRLse1j7JvOL55kqKUit+p4pKiiT+svCP5Lxpzdvd+NYmYALchy9HUD7qff
1+cmt/E6o+eOLvuEeRDn1XB206P/f6/JbNYXjf+/r7x65BTuVcy6z4U///9+
TBDL241TQFnTW5sGsceWhvBa8+H8hVMSr51yxnNZUK7dNsjnHPQVZew7+Qud
forIa2XbrzQX4f6nVHfGzu3AvNm6enDFaqDDn8zos6N/bn/c3pOLPdgpGA46
j2HvqFCsms0EWvvA77U5YujLI1W9XOgjPLwxE4x8IDrE9t4/HwAUtaPPyxq5
p/SHYN6HWKAevDAOGp5HH/yl80tiG1CRRzVjavA5R13NZ2uNBMqSy1e/VAeI
UIVHVSeOAMV/Z7LUDvczkJy+HYN791llZplXHO7Nu3pOhguQJVdSZzxxn8/M
8cgmoS5DngfPxhPo++JhHz9qYZ5UpX4qOgxE8e/eqAF2IAX12LkUYoFoEz9X
z8sE4pu8zAljfD220oDsFQTi61KtMaGjyHGbxd23Yo6OfTzp0IY+/XW//ONg
zJ+RtITpt5gTE2X1K08g/1B8HOaD///eG8+m4389kGMtIterDgHxj3vdSwfk
qw+aS/TZ0oFYsJBe2O2DPrGhgd6K71+8YLZ9qycQ75av3DeEvY5loXNFEu53
b09nzew9IFkX2vROYr95eVdp9111IHlUNa7qHgHiRan2rYNtQPJGyP6Zxt7X
Xna1JwXnwNcunPwbc72temcPN3KYoOuKqZsCQDQNPF23NwFIkZvP6+5gjtc5
Xay4iPwga9dq1Y2+VBus2Pg3D/vefdOIT1dQXwmq14ymkUc5K0dl7gBRXe92
sBH73Ka23X3h3EA81Iq78KMfSNVt3s6SHUA8cLRlMWMBUq1IcXCsBojK03H3
hUvQL1b2aH3D61W0q1qUYR/X6K55x4rPpXyyaOFPC5BaW+e3/ovC10IXIz4p
AKmdLXR/CvOvzPj9rZkH6FvLuN+dw354z++ao6slkHrehJqP5H/kh9Vv
       "]]}},
    Axes->True,
    AxesOrigin->{0, 0},
    PlotRange->{{-0.8948232455910581, 
     0.8948282441448044}, {-0.9774507081032046, 0.9774513423927498}},
    PlotRangeClipping->True,
    PlotRangePadding->{
      Scaled[0.02], 
      Scaled[0.02]}]}], "}"}]], "Output",
 CellChangeTimes->{3.394843913580771*^9, 3.395793300418399*^9}]
}, Open  ]],

Cell[TextData[{
 "That pretty figure shows the ",
 StyleBox["Cornu spiral",
  FontWeight->"Bold"],
 ", which acquires importance in physical optics (diffraction theory)."
}], "Text",
 CellChangeTimes->{{3.395793343638081*^9, 3.395793412336849*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.394844395866205*^9, 3.3948443959675503`*^9}}],

Cell["", "Text"],

Cell[CellGroupData[{

Cell["Terminating a Running Calculation", "Subsection",
 CellChangeTimes->{{3.394720980160801*^9, 3.3947209875101337`*^9}, 
   3.3957840096555347`*^9, {3.396739516714301*^9, 3.396739522090391*^9}},
 FontColor->RGBColor[1, 0, 0]],

Cell["\t", "Text",
 CellChangeTimes->{{3.394721057358857*^9, 3.3947210573717937`*^9}, 
   3.3957840096565104`*^9}],

Cell[TextData[{
 "Not infrequently you will want, for one reason or another, to ",
 "terminate a calculation. Maybe you've realized you have asked ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to do the wrong thing, or the calculation has run so long that you suspect \
(unfortunately, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " returns no progress reports) something may be wrong with your command, or \
",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " reports back that it has been caught up in an endless loop. In such cases \
the first thing to try is"
}], "Text",
 CellChangeTimes->{3.394721057358857*^9, 3.395784009658017*^9}],

Cell[TextData[{
 "\t\[CloverLeaf]",
 StyleBox[".", "Input"],
 "  ",
 StyleBox["Simple abort",
  FontColor->RGBColor[1, 0, 0]],
 ": hold down \[CloverLeaf] and press period\[Ellipsis]and wait."
}], "Text",
 CellChangeTimes->{3.395784009658687*^9}],

Cell[TextData[{
 "Equivalently, you might select ",
 StyleBox["Abort Evaluation",
  FontWeight->"Bold"],
 " from the front end's ",
 StyleBox["Evaluation",
  FontWeight->"Bold"],
 " menu.The kernel has to \"back up,\" so the wait is roughly proportional to \
how deep you were into the calculation, but eventually (after perhaps several \
seconds or minutes) an ",
 StyleBox["Out[#]=Aborted ", "Output"],
 "should appear. "
}], "Text",
 CellChangeTimes->{
  3.395784009668829*^9, {3.3980858645955*^9, 3.39808587276661*^9}}],

Cell[TextData[{
 "\tBut ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", once started, reveals a single-minded reluctance to quit, and after a \
long wait you may conclude that the simple technique just described is not \
going to work. Or perhaps you are simply tired of waiting. Try"
}], "Text",
 CellChangeTimes->{3.395784009669757*^9}],

Cell[TextData[StyleBox["             Evaluation > Quit Kernel",
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.395785570259762*^9, 3.395785611799075*^9}}],

Cell["or", "Text",
 CellChangeTimes->{{3.395785630774227*^9, 3.395785630888204*^9}}],

Cell[TextData[{
 "\t\[CloverLeaf]",
 StyleBox["q", "Input"],
 "  ",
 StyleBox["Simple quit ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["Mathematica",
  FontSlant->"Italic",
  FontColor->RGBColor[1, 0, 0]],
 ": you will be asked if you want to ",
 StyleBox["Save",
  FontWeight->"Bold"],
 " your work, "
}], "Text",
 CellChangeTimes->{3.3957840096719627`*^9}],

Cell[TextData[{
 "then both the front end and the kernel will shut down, and you will have to \
",
 StyleBox["Restart ",
  FontWeight->"Bold"],
 "the application. ",
 "If that is ineffective, try hitting"
}], "Text",
 CellChangeTimes->{3.395784009672772*^9}],

Cell[TextData[{
 "\t\[CloverLeaf]\[OptionKey]\[EscapeKey] ",
 StyleBox["Hard dump of the kernel",
  FontColor->RGBColor[1, 0, 0]],
 ". ",
 StyleBox["Save",
  FontWeight->"Bold"],
 " your work, ",
 StyleBox["Quit",
  FontWeight->"Bold"],
 " ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", ",
 StyleBox["Restart",
  FontWeight->"Bold"],
 "."
}], "Text",
 CellChangeTimes->{3.395784009677306*^9}],

Cell[TextData[{
 "Finally, you can ",
 StyleBox["turn off the computer ",
  FontColor->RGBColor[1, 0, 0]],
 "(a \"forced quit\" may be necessary) or, in dire cases, ",
 StyleBox["unplug the computer",
  FontColor->RGBColor[1, 0, 0]],
 "\[Ellipsis]but will lose any unsaved open documents. It is in anticipation \
of such an event (or other misfortune) that you should be careful to "
}], "Text",
 CellChangeTimes->{
  3.3957840096783133`*^9, {3.395785689320642*^9, 3.3957857094115973`*^9}}],

Cell[TextData[{
 StyleBox["Save your notebook at frequent intervals",
  FontSize->18,
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[".",
  FontSize->18],
 " "
}], "Text",
 CellChangeTimes->{3.395784009797346*^9},
 TextAlignment->Center,
 TextJustification->0],

Cell[TextData[{
 StyleBox["SUGGESTION",
  FontWeight->"Bold"],
 ": WRITE THOSE ALTERNATIVE TERMINATION METHODS DOWN ON A SLIP OF PAPER. For \
when you most need them you will not be able to access this notebook (or any \
other source) where they are described."
}], "Text",
 CellChangeTimes->{{3.394721328763859*^9, 3.3947214098388987`*^9}, 
   3.395784009798369*^9, {3.395835302715201*^9, 3.3958353046331797`*^9}},
 FontColor->RGBColor[0, 0, 1]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Notebooks", "Section",
 CellChangeTimes->{{3.394721483033993*^9, 3.3947214851053247`*^9}}],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " documents are called \"notebooks,\" and wear the suffix ",
 StyleBox[".nb  ",
  FontWeight->"Bold"],
 "Open the ",
 StyleBox["File",
  FontWeight->"Bold"],
 " menu, select ",
 StyleBox["New",
  FontWeight->"Bold"],
 " (alternatively: hit \[CloverLeaf]",
 StyleBox["n", "Input"],
 "), and you have created a new notebook.  Use ",
 StyleBox["File > Save As\[Ellipsis]",
  FontWeight->"Bold"],
 " (alternatively: \[ShiftKey]\[CloverLeaf]",
 StyleBox["s", "Input"],
 ") to name and save the notebook. "
}], "Text"],

Cell[TextData[{
 "\tNotebooks can be rendered in various \"styles\"\[LongDash]designs \
intended for different uses. ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " 6 is shipped with 17 canned designs: open ",
 StyleBox["Format > Stylesheet ",
  FontWeight->"Bold"],
 "to see the list and sublists.  Try them, one after the other, to see what \
they do to this text, which I have written (and  prefer to have read) in ",
 StyleBox["Book > Textbook",
  FontWeight->"Bold"],
 " style.  "
}], "Text",
 CellChangeTimes->{{3.394721579409309*^9, 3.394721580269803*^9}, {
  3.394721631446026*^9, 3.394721653313335*^9}, {3.394721933975503*^9, 
  3.394722018445116*^9}, {3.395835359201804*^9, 3.395835371329782*^9}}],

Cell[TextData[{
 "\tDifferent canned styles come equipped with different sets of options\
\[LongDash]few in some cases, numerous in others. Open ",
 StyleBox["Window",
  FontWeight->"Bold"],
 ", note the control options placed thus at your disposal, and activate ",
 StyleBox["Show Toolbar",
  FontWeight->"Bold"],
 ". Select the ",
 StyleBox["Default ",
  FontWeight->"Bold"],
 "style, and open the ",
 StyleBox["ToolBar",
  FontWeight->"Bold"],
 " menu: it shows only a few options. Now return to ",
 StyleBox["Textbook Style",
  FontWeight->"Bold"],
 ": it shows dozens of options\[Ellipsis]which is one (but only one) of the \
reasons I have elected to work in that style."
}], "Text",
 CellChangeTimes->{{3.394722170372025*^9, 3.394722223821724*^9}, {
   3.394722270909728*^9, 3.394722307482848*^9}, {3.3947223997304792`*^9, 
   3.3947224008634243`*^9}, {3.39472246601089*^9, 3.394722499673676*^9}, {
   3.394722530973023*^9, 3.394722569362176*^9}, {3.394722602110221*^9, 
   3.394722631944882*^9}, 3.39472268956629*^9, {3.394722808959923*^9, 
   3.394722817264742*^9}, 3.39472323410818*^9}],

Cell[TextData[{
 "\tUnder ",
 StyleBox["Format",
  FontWeight->"Bold"],
 " you find ",
 StyleBox["Edit Stylesheet",
  FontWeight->"Bold"],
 ", and someday you may have occasion to do just that.  But for the moment we \
have already in hand all the resources we will need. My general advice:"
}], "Text",
 CellChangeTimes->{{3.394722826781066*^9, 3.394722866268916*^9}, 
   3.3947228981927023`*^9, {3.394723283977133*^9, 3.394723283986878*^9}}],

Cell["", "Text"],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["\[Bullet] Mathematica",
  FontSlant->"Italic"],
 " is intolerant of typos\[LongDash]all capitalization, every brace and \
bracket (whether round, curly or square), every bit of punctuation must be \
exactly right\[LongDash]so ",
 StyleBox["work with the magnification (adjustable at the bottom of the page) \
big enough",
  FontColor->RGBColor[0, 0, 1]],
 " that you can clearly distinguish ",
 StyleBox[".", "Input"],
 " from ",
 StyleBox[",", "Input"],
 " etc."
}], "Item1Paragraph",
 CellChangeTimes->{{3.3947229203946657`*^9, 3.394723134594233*^9}, {
  3.394723288160347*^9, 3.394723288296936*^9}},
 TextAlignment->Left,
 TextJustification->1.],

Cell["", "Item1Paragraph"],

Cell[TextData[{
 StyleBox["\[Bullet] ", "Code"],
 StyleBox["Show the",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Toolbar",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 "; it is a great aid to the insertion of section titles, explanatory text, \
etc."
}], "Item1Paragraph",
 CellChangeTimes->{{3.394723169770825*^9, 3.3947232621294823`*^9}, {
  3.39472329345754*^9, 3.394723293588152*^9}}],

Cell["", "Item1Paragraph"],

Cell[TextData[{
 "\[Bullet] Make the page large, yet small enough to ",
 StyleBox["leave room on the screen for an input pallet or two",
  FontColor->RGBColor[0, 0, 1]],
 "."
}], "Item1Paragraph",
 CellChangeTimes->{{3.394723308426923*^9, 3.394723348051628*^9}, {
  3.39472339322703*^9, 3.394723393365368*^9}}],

Cell["", "Item1Paragraph"],

Cell[TextData[{
 "\[Bullet] At the beginning of each work session your first command will \
cause ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to attempt automatically to open the Kernel, but if the command is \
complicated that attempt may take long time, or even fail. ",
 StyleBox["Always start with a simple command, like the classic evaluation of \
",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["2-2", "Input",
  FontColor->RGBColor[0, 0, 1]],
 "."
}], "Item1Paragraph",
 CellChangeTimes->{{3.394723404329403*^9, 3.394723404585609*^9}, {
  3.3947236822328053`*^9, 3.394723772921163*^9}},
 TextAlignment->Left,
 TextJustification->1.]
}, Open  ]],

Cell["", "Text",
 CellChangeTimes->{{3.396017937194881*^9, 3.39601793733853*^9}}],

Cell[TextData[{
 "For access to a lot of useful information about this broad topic and the \
topic  addressed below, go to ",
 StyleBox["Documentation Center",
  FontWeight->"Bold"],
 " and search for ",
 StyleBox["tutorial/InputAndOutputInNotebooksOverview",
  FontColor->RGBColor[0, 0, 1]],
 "."
}], "Text",
 CellChangeTimes->{{3.3960179441728287`*^9, 3.396018039143424*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Input Techniques &Tips", "Section",
 CellChangeTimes->{{3.39472384400985*^9, 3.394723879851776*^9}, {
  3.396659941900584*^9, 3.39665994797968*^9}, {3.3966600482438*^9, 
  3.396660058710927*^9}}],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " assigns distinct and non-interchangeable responsibilities to ( ), [ ] and \
{ }. Those I will explain in a moment. But first a\n"
}], "Text"],

Cell[TextData[{
 StyleBox["TIP",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 ": The correct way to type ",
 StyleBox["(stuff)", "Input"],
 " is not to type ",
 StyleBox["(", "Input"],
 " then ",
 StyleBox["stuff", "Input"],
 " then ",
 StyleBox[")", "Input"],
 " but "
}], "Text",
 CellChangeTimes->{{3.394723908588951*^9, 3.394723955725506*^9}}],

Cell[TextData[{
 StyleBox["( )  then the ",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["stepleft",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" key \[LeftArrow] then  ",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["stuff",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" and finally  the ",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["stepright",
  FontWeight->"Bold",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" key \[RightArrow]",
  FontColor->RGBColor[0, 0, 1]]
}], "Text"],

Cell[TextData[{
 "That way, having typed a ",
 StyleBox["(", "Input"],
 ",  you will avoid both the danger of forgetting or misplacing the ",
 StyleBox[")", "Input"],
 ", and will avoid also the distraction of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "'s ",
 StyleBox["signal",
  FontColor->RGBColor[1, 0, 1]],
 " that it has detected an unclosed parenthetic. A similar remark pertains\
\[LongDash]for the same reasons\[LongDash]to running ",
 Cell[BoxData[
  StyleBox[
   RowBox[{"T", 
    AdjustmentBox["E",
     BoxBaselineShift->0.5,
     BoxMargins->{{-0.075, -0.085}, {0, 0}}], "X"}]]]],
 "\[Ellipsis]and, indeed, to all electronic keyboard work.\n "
}], "Text",
 CellChangeTimes->{{3.3947241388748627`*^9, 3.394724145872603*^9}}],

Cell[TextData[{
 StyleBox["\[Bullet] Mathematica",
  FontSlant->"Italic"],
 " ",
 StyleBox["reserves ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["( )", "Input",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" to ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["delimit",
  FontVariations->{"Underline"->True},
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" expressions",
  FontColor->RGBColor[1, 0, 0]],
 ", as in ",
 StyleBox["(1+x)^n ", "Input"],
 "and",
 StyleBox[" (a+b)(c+d)", "Input"],
 "."
}], "Text"],

Cell[TextData[{
 StyleBox["\[Bullet] Mathematica",
  FontSlant->"Italic"],
 " ",
 StyleBox["reserves ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["[ ]", "Input",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" to identify the ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["arguments of functions",
  FontVariations->{"Underline"->True},
  FontColor->RGBColor[1, 0, 0]],
 ", where the term \"function\" is (as will emerge) very broadly construed; \
simple examples are ",
 StyleBox["f[x,y]", "Input"],
 " and ",
 StyleBox["Sin[x]", "Input"],
 "."
}], "Text"],

Cell[TextData[{
 "\[Bullet] ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " ",
 StyleBox["reserves ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["{ } ", "Input",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["to identify ",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox["lists",
  FontVariations->{"Underline"->True},
  FontColor->RGBColor[1, 0, 0]],
 ", where again the term will be very broadly construed; thus ",
 StyleBox["{2,3,5,7,11,13}", "Input"],
 " is a list of primes, and ",
 StyleBox["{{a,b},{c,d}}", "Input"],
 " is a list of lists (i.e., a matrix):"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"c", ",", "d"}], "}"}]}], "}"}], "//", "MatrixForm"}], 
  "Input"]], "Input"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"a", "b"},
     {"c", "d"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.394724364269167*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Palettes",
 FontColor->RGBColor[1, 0, 0]]], "Subsection",
 CellChangeTimes->{{3.394724419408379*^9, 3.3947244229082603`*^9}, {
  3.3947244697693167`*^9, 3.394724476315916*^9}, {3.395871504356262*^9, 
  3.395871513748124*^9}}],

Cell[TextData[{
 "Versions 1 (1988) and 2 (1991) of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " required one to communicate with the front end in a kind of \
one-dimensional \"telegraphic\" code.  For example, to evaluate  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", 
     RowBox[{" ", "0"}], 
     RowBox[{" ", "\[Infinity]"}]], 
    RowBox[{"x", " ", 
     SuperscriptBox["e", 
      RowBox[{"-", 
       SuperscriptBox["x", "3"]}]], 
     StyleBox["dx",
      FontSlant->"Italic"]}]}], TraditionalForm]]],
 " one had to enter "
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"x", " ", 
    RowBox[{"Exp", "[", 
     RowBox[{"-", 
      RowBox[{"x", "^", "3"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "3"], " ", 
  RowBox[{"Gamma", "[", 
   FractionBox["2", "3"], "]"}]}]], "Output",
 CellChangeTimes->{3.394724533876607*^9}]
}, Open  ]],

Cell["\<\
That, as you see, still works, and is the style still preferred by some \
people. It is\[LongDash]in simple contexts\[LongDash]often the quickest way \
to go, but never pretty. For many commands the telegraphic style remains \
mandatory in Version 6; look, for example\[LongDash]picking one from a \
zillion\[LongDash]to the following command:\
\>", "Text",
 CellChangeTimes->{{3.3947245930886097`*^9, 3.39472464025779*^9}, {
  3.39583567696877*^9, 3.395835677566667*^9}, {3.395835731392702*^9, 
  3.395835732913508*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"SinIntegral", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "20"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwdm3k81N/3x+07SbJnGWJGzDCWUj7uqSRbKiEklUqKJFFEUqSNkmTLlihK
kp1ki5AISQolSQgJzbxnGH73+/vr/Xg+5v2+99xzXuece/4Y+1Meake5uLh4
uLh4E/73NLt/RF/AIyzt/5/hXFwoWHWvreqHRvzc86VvngtdV1WNqHmzjJ9S
NYueXChZlV8lpi4NJat0iB9HXChPhXky8D8f/FSkuCQAqlSZifda+IAqlS6W
P/kqiVpVprSG+wVRq5ROy4rkcPRZ5ffpjLcPUN+4QrnKGTE0QfXpv/68AI1v
VL7lf28RTRyyjp6QmkDjxwKWrUzC0UQ82cz6rBYajy97Ef0vCU2wfjwQNc1E
49MLu8Y8+tDvJlfP6NY4NJF1pfax9CSactv+9/aPs2iS/9Kk4pcBNLNtZUSb
aAaarqI3dZcEoTn/yeQudAz9/T2874puCZq72V/FyOJCf5dlxl6Fp6K57LcD
SnxJaFbqv6HTfbForjdP2bO1Bc1u8Pj2xaUHzW88mrXoQEazkYK9ZQbv0D/u
r/laXmNoTq44eyJ9HjFiO2suxJ1A8+stegdF/BEjr/Zb1j8eNG9ZrF0vmY0Y
Dc+5WvamoHlXybubPXsQYz5m6yqlt2g+ND204JwyYjpbNec+Xofm6/mf/3Xo
RYRKQ+eHl5PonwWre3BHLmIVlPyg/PRFjO3oP7MHs4jVWi/02X0IMZzFBasv
jCHWSDv1Wt8exPBqkepaGY/YCj+Df7VtQIwb/C01FxwQ+6qMZM4LXsRoS39n
H+uPFg6cM1MLTUJMG9j3ltyAOJImyfKr6hFhutJgK/9lxFm3raYlxhAR1kFf
/pR3Io7F7pEggUeIcH43VVgRijihJ2i9rGhEBG7c3DvwBXHGUt7Ef3NCxDMK
Zc/6GbRUtzAv+WQCseQdwmUe1gDXhm9akWoiiDX8jr/hojZwbQuj3TFtQayp
P+qhdH/gsl+zPt05CrFYXD/XjIsAl/e+7RWxPIgtMbM7JroDuNI+HZtcYiO2
yVKDl1k8cPO8z3Uc+I3Y0Z8nxsotgHuFb6EH8QSxE36tk2wD4FYSr/CT9kLs
zB8rLj3qAW4jm5YbNiOIXfKo5RLHDbiPNY/VVA0gdr+7zM/cIuB+V0fRSnqH
FtbG7OzeXgLcnw/oG5bcQAvUK57yy0nA/XPJZHOnJVpY77NB9fot4F42tXIT
bEQLVgJyR8YkgUe/4njs2Wq04O0tfm9uGngSCvNYDs/QQv4iPXF3DfAefKDd
JnkLLarvMUyJDwBeX7vSNesr0aJ2VZCpsxLwhiyiU+4jaJEuviB6YRR4E/c6
rHq2CS1C8Ke8YyXA2yF+wc1qDC26Hc257m0MfJuC309FbEWLsXfLf/7TAT4r
LVf0xBctJjRouvxHBj6nnpE7XSloMXXQ4jcyBT5/GstYZQYt5n6uFZGVBr7c
UVJYdTparJ0MTP+dDfwy9oEr/hFocSI8r3VXDfCrLy97rFFHi3/Ctn3+Kg38
+s+ul5jbocX546S5znTg3yGU7hyXgxaXBJqfGW0A/oia5gc0e6wjj56P0sPA
f8dn95xTGOJIt8WtZmQCf4b8wLYLeYgjr/b9C60D+KsCZsbfcSGOWuLh+Kfm
wP93nQLd6xni6D9WIWSTgH+pLzvydh/iGF3IbPrDAwJiUdTecj7EMdkiSpAt
QUDr+9YQflfEgfj3DpVeIOCe6PM6Swhx7A7v/GRsDgI+5szVrQaIs/vJcV6J
SBAInr10bMYdcRy+vc16WwQC93YkiJmVIs6+1UkSlQkg8I631qHfA3E8C8oC
w/VA4PPpk9/viyDOcbdPslVuIDD6TcnXtQhxvNnm2260gCB3VfDVL7yIc5rX
iL5CEgRXkMnSyfmIc8a3K/UsAYJK93ofuDggTmDr7/GsWRBcf9qgqi8bcc7b
vfP6GA6C5l+HtyfZ4jwKejr5oBME7W1je/bOI05Y3CbGZVsQPKk1NfVpG+Jc
jn+gqqQJgllfc1U/jiLO9U+TzW5kECy0dXp27xbi3AyvHr8+CoKvqvg3Ohoj
Toz8owxBvH/fPY89PVcRJ1ZxsVaICwRHeSWH4vUQ586VyL28G0Fwzq/25B7s
37hv+wZ55kFIwlYp6gMZce4d0f9q4wtCipVtq+Jw3ifctl0ztguEKFrBmfZB
iJP4ZOrD7CMQMr5H1pVSRZyk8rWS1RtAyJynt7KrFXGSi5cZHypAaLffFYs7
/oiT8iC6aqQGhNy/GnzYrYA49y9+fpgYD0LBlbGTnScQJ01iyulFHQhd1ULB
sVKYa7sEje1BKD5+WmBnFeKkHyrIdZIDoSye1LsrcHzS5+P7GlpA6Lmfjcp7
UcTJCIqzPJYEQtWDrPxbJZinSissXUHorU2uiZ0b4mQ6iLMPBoDQp0qnNxJY
P5lP8/5eegdCP7X47dtxvDLnk+4YRIPQbHzxtxgcrwfUscHYHhDm4vHwsV3E
7Jr3W8sdhMX9JFliOH4Pzk18/TgJwgqDtVfe7cAcVTX1pAqEyTa+UjcZmK9S
3Oq7QdioUinDJh1z8LZL6sYgvFWzTUfUAvN+5doHQiC8Kz644u00ZnpjdGk8
CLvzkLfdSMD2sC18DpmCsPep3m5rM8zFxbNCbiAcNHjlgDCOf+YBpbpdiyAc
ZWPwu/U2Pu9i7HWuFBC+WzEcdH0D5mgVsc+5IPxA8w6/5RBm8T7FYFUQLohH
cULXsP8utd01mAHhau5p5Rash7Qx4YPzW0C49VTq06tYD2nwIFxmAIR7B202
bA9HnNSbD9mWAMIj1qwmQayP+62qvw7VgfDfitzdb7A+UljkkxapILys6fQ1
CusjRfFtbd0oiIjF83tbYH0k68upup8AEa1THpFNp7F+DP45mVSBiAFDwGJE
GevLMKxAPhREIPSJME8b1h/lUZhmAIi4XP8bA2uxPmcF14WIgYin5L2d7t1Y
v02uc1frQMQ/0WTlhYtY3zERwvJhIHIzO/xe1Wes/8WofXl0EElap7H3cxTi
RD8MfX9FDkSyX7TIE7ge3EQXlk5Zgsir2hXpRjGIc83p00EN/Pufz+mPCjfj
fOM7Nu5dASKLB7d4deD4hDsaPb3jC6JCo6PaU/dxft4PLV6hDKJq87rPtf8h
TohQQbBbB4g6SFSX5+D6duYYZbFPCkQrtn5pub8ScTzgB9qoAKKNb8NuVNYg
zoE/w69OF4Bo126SbZ834uy/Z5Y+6g+iE+7Hu1Y3IY7z6212adYgphrefI4N
xvWsQIN0oRfEwgtkJq58R5wNbePfk7hALMawKj8b57/Rr0v7W+gglvzS3ff1
JsShsw+I760GsaKWnDmue4ijK0A2ZRMgNvLDcCHECnFUy++caBwDcSu5PWJ+
LxBH4NZbkyoPEHd6Frwq5R3i8PS/ov4pAPEjWzIUGkfR4rLK1an9j0D8os9v
irwCWmTe/JvSPAPipfUR2+oj0eIvtt7FIXeQIJ0ovijlhBab/0Mhiv4gsfBq
1d9iNlq8+NOhlhINK4TtTYiv0mgxhF5BaoiFFTK/DnIJUdHi2eADD3dehhX0
lfkSbofRos9syzefHljh5Wm+ju8dWnRJWnv4jyus+Lgi4Igj7lf6NWKua2JB
cq/ehHfIA7QwuOTayysCkvuvEsJ1emih798rLnNJkDz8jT+Xrw4tfBjfl6hL
BUm/GNWRmCG00NoUbW89DZLXx/fuz1RGC6V7Tq3qHwDJ6geNOxtT0MLN7kZ/
VS5YSZJKNxSPQwvGbbxBv61h5eT87sWMy/geNXbZ3CoaVp2vhqEPXIhl9P4G
ffUtWHXp/IOa8UjE0nNu+F5wGVZdM+FJ4xJGLO2fR0LF3WHVvdJGF10pxFIV
lum7MAGrCp9v77q6FrFEQh6KS/vCqtEsu4ZN1ogYkgtYreME0vbX3B4+vIuI
W1fmPX9Ug7SLxatLVXKIuB6/o6YwEqQP8isf6ExFROTj2xcvd4L0yUtDihx8
Pzs/wJQpCwPpayGH4/dWIOJYZBj1dDhI1/ieuCI6gIjN7z3lijRgtbZDkGeA
JmKyk4zznvvAar2MPd826iImI+PO45AEWG08QXPmMkTM2fyNwbeKYPXWi6NW
0VsQc+JjLP+1FFjt9tRBJ9sdMfuPc6lUxcPq2zy02Z4ExHyVdIK6QwpW39sh
6p2ShpiVzOQjfU9g9f3E0ZGD2YhZ5hZUaw6wOlc37eNkEWI+X+++QccQVte7
iFbydSDmA/p+8aUSWD33/NdFI37EjNpc9celEVaz2A3MBTHEvLzkVc5uBBmu
bel+9VKIebFe7k5/GciI9Tt67FBFzGDn2OLwGyCjKfB621FTxPTpdH/cIwUy
zvszRO8FIKbDL4XvUQAyr0SdEv+NICblLcdB3BhkXg+eMdichZhaCsE+Evj9
t89vd8QcQEyN0zdtNlwGmb49rfwaXxBTxfiC0AsBkJlL3eS/pwsxVytO0mMn
QVZbV9X2RQ1i8uy1/W2lALJ6y6a/OKGIyaXmn/8qH2TXd7lEWJkgBmfOKXfc
HGS3BcZVDpUgBqvg4AGeFpA9WMOvteIJYvy99NiC2QmyiXYT3CcTEWM4Xbl0
tzLIpqsJpFY6IMbQSPu/QwTIZs+pb+CXQoxvBjselzWAbFGim2/qLcTo/1U7
V+MFsu3fOvrbIhHjY8HZw2OqINvz4vc52S2I0WNQKNTZC7L9kUJSHsuI0V33
UvKfGciOkzdbss8jxvtZcx3XAJDj8ysuo/ghxttiGekYADnRLZ27A6mI0Xq2
Y+qPHshJSU9O1v1GjJYtDm++TIOcSqWmurMnYjTNvC596Q5ymje31GRrIEbj
hydlDX0gp7v/gMufYcR4XeMac+88yG3iToq9uh8x6p+uKLiaBHKbP5Su+6CA
GHXPpMwEnEDOMqerWbkPMWrL+qjrnEHOyVqEU4bP/+r748+H8fen4y6c+GmN
GFXxa688ywW5IPN89QsWiFH5KRKdwvaGMb4MrMbnrSTt0hYZArnofRt2bNuI
GOUdWnoTSiB3V/wY/6AxZprudDD+Pbn2Xk0gHTHKEpNVkrNA7rH6HC1HGzFK
w+46fA8DuWe9amP/aSJGCWfNsWgukCu5tivzIwlzBI/IRBnIvdx40eWkMmZJ
s6R+bG/9ZIEUPz5PcXani54dyLWkD7xNk8EMJZfqSkDu/W7RCCMcv6IfY8ZB
1iDXy7txU7sE5lte148RIDdQ6jV/VBQz0M9/rAG5H8cS8zlCiPGCtYVlh+2f
kH9z9B4f5sqE78VfQG6m7Z+yLhfmS9rLu8kgxwxT721cxLxzUXRsEuSW9Oxv
uxGYNQWeN0uBPN/wpe3zeG59wbv9Unc2yIvGF3JFzyBG4a+XgumWIC9l8bVS
YxLzh/2l5w1BXo4lfrp6DPObddNX6kBe5amptsMI5joSXx0b5DX3nxiexPNo
Yb2pibIpyOuuSL4fOYC59ezL+AaQN6hvcVDC8Szsa39KjwL5jWeYYiV4Di78
85+MbgvIb9Zc22Tbie0Rq2MRsSC/vc/hwsg7zPqOW+3dQN7uRoRxaAtmt38d
rjUg72j64o90I+bb6Z7ZkSC/b3rocX4d5lbr5u0zIO/xYMVB82rsP2FGCsMa
5I/vMZMbqMC8Oy1ULAjk/fh9ugJw/hVlbpx/ZAbyF46/3ZKdj+Njvz2SVwnk
IxWJBdNczKXP3D0JkL/RoVXcg+f4EhXm3nIHkE+iX1nLl4r1Iaxx0ZQM8ukj
xYOpSZivcmZlvoJ8TsJwgmE81pN4rvge7O+iBRA8EoP1puuqcLUP5Cuf+dYu
3sDcvLfnWTXI1x1IC4qPQowKr5XNFUdAvv01e7wxDOv3VQ5kO4F8z1lKlhvO
zyr/AOkWBsj3k51d588ixkvd8ZrLkyA/Fl36TsMXMaorim9kYv//MRuJrD6B
8+XqYgRrCeT//V31nwPOz5r9vdxc1aDA6+hXEOmO822N+l1RCVBQVl4XO2KH
83P8inV7AyhouPWMrMP+b+znO1cdBAra98PWn7HB+d0tGfhXGxTWy3V+5bFE
jObOqq88i6Cwa9XZdao4396teDuY1wMKTvYqYcdwPNp1SQfKJUHBLbal6zlC
jI6dgwkH5kHhuIRikJkpYnTmHO/e7g8Kl4XqmtyMcL2K3UL7NQMK17afkHuI
49Pbp2r5NRwUbkWt8v6N87NvrXHQS2zffV5PqfO4Hn3pmE9c9Q4UipdEDySR
cX08KCfz8C0o/JxzZPUoIcbkmSH7Urz/pP7yDsUUxJgWu77iJwMUZv1yMw/L
I8afJ6J5YYagsDS1YDGL83N27kphwBFQlB3LjJeUxPW5Nm3W/CsoWg3+ptry
IqaQcdsPcwtQfNYS7vF6AjHJ/jOnJPD7JbdO9N1RQUztVpn2eDoovnRwtHN3
QExddabuLi9QbBnSNiFwf9D/Vf8CpYLiD2bPSt04xNz0KOw/AVdQUtDSqk3c
hJg7ibDCn3ygFHXlvdKJaMQMyfd8vZIL1hzYuqZ3JRUxB6l3RF02wpqj9y6P
xowi5pBebF+kF6zx/vWLKYL77Q/DaMUZPlgTFF0kx4f75fiWPZca38GaO70W
Lgxs77+AjYyjArCm8bjv4EAOIiS0V3lNpoIy5Xbtz1wlRMBDKZff2qA8N3Do
HxJBxON/D/2OJ4Eyu0yIvDkIEU/P88bJBoAK9+2CfVtHEVGwtC1+cQZUVmxh
11s2IKJMwALusUFFO+9ujP15RDSuUnI1poPKobNNa4/+xvcbWbOH1CxQeb+S
7Bj9DrFkIwp+pTFA1ZHEdJ3ajliXPu1V1d4Cqs4XP0RIpyNWJFFsnCsAqvsG
nj/dNI9Y12QLrtqRQdUj4djCjUzEumV3OEpIB1T9hPtStdiIlZI29fsMgOqN
mcpBj3zEKqoZ5CvAv9fVhB7ok0SsoY8rqoLtQbVR0fnqsidi/bg/QT7YAKrN
QYaFmtWINXrggsHDTlDt0J/iCjyOWL8Hig2N3EG1P2f/A6kGxGIUPP19UwpU
GdFmwzsCEFv06YFE41FQ03HlPtLQh9j0ry3jiXKgRrug8GXzDGIbCdvY7J8B
NXqm4c56QcRer7dHkLEB1DaMHttYa4zYm84MRzwcAbVt/u2SL+MRe2vnXes3
BKi530yqLtmJ2HsGJrq6jEHtUEER3cATsR3b/706pABqR7raHheFIfbel9Y2
9X2g5i27FFeYj9j7bjQ0bNAAtXPZR7yeiSC2x2L8scICUIt9pSed8waxT5MZ
WTexvXeHrG5ofEVs/0GFNVZ4/0Rej+WH/xA7IMbxgdwQqKVZ3ZvI0kDsc8PC
TQVZoJb3caEuHd9/w9wUewzOg1rDdLNPohli34gtLieTQe3NyqFhGSfEjuZX
v7hlF6i1GrL33juJ2DGBkSuUPUHtfYjulrupiB1rvUI9UwjUBgTvyt1mI/a9
BumqdfGg9k/VvfFaKWJnTJpOXNYDNeKqXJt1LmI/2HDmw50BUFuY6u4WS0Hs
rIuvte6bAonnpcW32HDEzl5+2HC0EEiSTlR2ki1i5zWatld7AGlV9Ti3K0Ls
J+MCxfE+QJJVfyikREfsfKH+71NJQFrzV3Z1pixiF5hkpfSnAmndzWW9x8OI
XXQgzHT4C5Cos5Xrj39E7GK3sDq7fCDRXc6YrWtB7BKHSyIRA0Ay0fxl8/wZ
YpcZXd12mA0ki/r3nuVBiF35MuJlTg2QrMnXTwZ7I3ZVbMjZd1JA2nF7a8Am
d8R+efDUqjIFIDm4lV+q3YrY1X8tV94cAdIhZkZqswRi1/aWy2i6Aemou8vD
69yIXRcRceblMJC8mlY9sZ5H7Pp1Vkd2vQHSqbir5R2fEbvBu/7nlACQ/Fmb
a2LfIfZrvoBbati+swcWmuxrMCepMp/g817QPdXdm43YjYXH+p7aAik8nvI5
KRGxm4x4+g7i9yPYP4Zcb2AuScrrw/680bJ36uspxH6TXXaShPe/RVs5n+mB
2M2r0d5rZUC6c69twcMBc3gTX5MEkJIOg9DoRsRusWylB6QD6X4re0WuLuYc
K0WeBCBl6JXInFDFvNiScPs8kLISfdfoSCF2607LkI4jQMpZIqtP82NObX2O
6yMp78iw9nMC888d6toaQMpvS9U/PYHYb8kfPt2TBlIh3WmDwSDmY+5fkCWQ
ipMlzf51Ys78Y5FYBaSy5bfbyl9j/hi1rTQLSFWekbbBZYjdxr9WYpcrkF61
m+3ZhPXVRns3Ug5AqjcgXDj3MTteVGh1B1JjStHB2luYz/63YpIAUgu3z7FL
WG9tcUL6AktAavPS9N16BnPud8LfAUgdHUOB/Dg/26rapphcQOpa+NSqooC5
WcokD8fzI/n9mg0dmN+LX7mqBKQ+xzen7XE+tXXX0phfgdR/+VWTj/H/mPwg
dBeQvj4vlb+Cz9vWbmP7+ASQvg/kn8xIx9xILpAtANJP4Yf1lfaYyxps/cyB
NGZ8f/UHAcw58hX2fED6fTju+GQV5tt60Q6+QJqOvV4j4Is5UMhnKRJIf19d
klIlYXZ6KFSL4zU/EeRp0ovZkEd2TAZIhOypqj1YD23iWm4PZoC0YH5M4iTO
97fD0lnjOF5Lp909omYxF7XVXdkF6tzpjmWZOZgv2sUvPwJ1vrYdIlXOmLdn
CKcVgrogYe7eI4ZZtHalM35fwt5AUBDXz9argb0ut0B95UXtfWpkzEgy710j
qEvnqz3fOID1MhthmoPXUxSQ3OtrjtmWMJZ3B3VlA8GnV7E+mueWlk2vgbra
gaXlB7j+NSeM2jbZgbpW5dTjj9JYv50HHgzbg7rhybfEphGsbykUXBIO6utT
Gmwdk3A+JEUft7IE9Y3NlZmncP1oVGgnEzygvlkt1zKrBOfPKsOTseagvuPj
lWThSJyPH0ZcRj1AfTdP6JT6Bswb5fv+970DLWCz6STO31Tnl+YjoO563WPc
D+dHjcMSqZ8K6sf+A5NPuJ6+TDS5dfgEqJ84sT5mBveLqq9iwhsFQP1kInVY
JBqz6nKxph+on/m75sZ/ON8r7u9dszkb1MOz2V+yGxG71ENleKIT1FPESkP8
D+P6tYl720e8fxql9Csd6+eZtU3iumpQz7Qog1lc//OdVu6b1wH1R+HlAqcL
cT08rLRgge0pmq+447eI2I/2JGzVVAX1toGXj08lIHbaHaOC1o2g3sGqFqEd
R+zU49/7CrD/u2Wqff6YIvZ9tDVuSA/U+3a9ovv+QOykofW6cXi9kcaaV756
iH13wTZDGPuLk1//wacVsa8nFwX2RIMGV2uDsQ6u/9dQfP6ZANDgHW1ImvRD
7Kjhk5TIGdAQUX3t7iOD2JEqK9lnd4GGTHzjuDeuN2EBDx36fUGDFtq8fBzb
6x9fdTSrCjQO2XasO0ZDbOeWi5epdaBx5NkpleO4nznNdL5huoKGl4TkKh/s
T0eZTUEvCkDD9/3uhdPjiL3b+SyJNw40Qnd/bAt9iNhWL/XeV1SARqLToHcc
7gcmy7ssUjJBo/3g5NPqZcSWez6V5ngN1poEiupIvUesTurG9XzZoMmrc/9y
wUvEMjv1sXfgFmgKJCo42gog1qb5M4MKo6Apwp2sNb4bsUyCr1K2ngdNyd6E
dvVfiGV4hTLRaQeayuFxssmrEEv74donWkqgadJzLT/CG9+HuGREzz8CTb/Q
wF5nRUTMnGSImZaA5pnR+dx/noiYlsgzKzAFzXO7z4TEvUDE78L89cF4vzDN
06rt2xExSrwMlhICzZudPt5bziBiMLl4sJkAzccah7l02hDRppG2jToMmoPv
dmlzh+D73fWr/b6qoPlds0/UHN/nck54HUFnQXPk0oHJa7sQ8XCH5dIrB9D8
bXzq+QoNRGTIq7xbmQCaROZtQ6V3iEhoLf+dlwlaqwI6zDYoIyLqrqKBrgNo
Wa2xtffF98Fj40c0DftAy/Zcj0GRDiI8pVfTNtuC1s5uN+l/CYg4stnj8+g1
0HK66v0p1BsRBx/+vCYxBlqH/950uyGNCJfrXPG73EErrOmtZw4+v80ng50B
KaBV4mt5fgDfT+npv7xmd4FW+W3xvHPGiNA32ynp/wi0qp5390kdQgRtyJOh
rgdadX/3G1lWIEJX5wVHvQC02gNO/ynF62n9XJziGQGt0fP3j9yqR8SawVuy
526A1vj9g3cpk4hQylv7anMQaE1Wr61vkkOE4rl4Fzz/a81yCpUXfBEhr7RM
2vEFtJbDGz974fuz9A0LMbItkOWipu3+d18WnXE55WQJZMXHxaED2YgQmXBE
e88DWbkl6Om594gQ/rV9T6YZkNeK8AoVaCJCcGK1tFsukPVjZF8rfEAE36rI
/poJIFvf3bx+Ht//F5miDxo8gbyjRMDztitmNa26++ZA3tXTdk/7CmIu2O3u
9w8A8l4Zx9mDA4jJetEzWh4P5MPJJ/LbbyAmI63sfVsJkEMz4tUe/UTMv8I9
EUvpQA7nZX2PnETMmb1xbU9rgBzhdeCBxyxi/sldeKSkB+Qb+uvUVLgQc9qp
s6taB8iJDQ2qiQqI+ftr5o+7FkC+r6U1FKiG2artd4k/kNNvxmTuISPmRMXj
aVXsjxwHF9UVRngeeRBoIx4G5KKfMypXdyHmr4wzf59+AXKZteO3o3sxk40e
6pGBXFnwMmOrO2KOluSLDSQAue7cVeVlb8T82Vexpu8tkF/3T34d9MfsZ2e0
pRvIzWCf/jIIs2jyTwkBIHcIKyufi0LMkR32wXmjQO46GfHVMQbPR3O154V8
gdzTNZ5uEI85bdhqHIDcn1K65s8DxBzmWCn6hgP567LCYHsu5qLokRPYX8OH
w9OeFmD2jhLNEALyuI7tmmPViPl9LDFWsALIk7EvBre9xpz//GADjseff7Jp
6m8xB4ScbcHxmHO5sJ+7EzNaON2Cv2e8+qH07RPmFdRfAplAZpMsB159xfPc
8OpDR/F+nKiC1PsjmCsKDnnmAoXrt7Rb8G/Mcaz9VAZQ+HaeV9qL4zPk968u
2g8ogsXfBoxYmO2zJlllQBGV25YqjeM1tIHLJCsLKBKhT/fNCmBWE5vzmgTK
yu8rFTvFMYu3uI2NAGX1trP9BdKI+W1JvyDMGChyeQP3o3F8v81aylgOA0VJ
Ysu+Ezi+3yZEKugAFBX/XEVLHN9vP4OezaoChfRJvF+ThnnkjqA0H1A0N525
z2eM+Zd9y+JloFAyPrsOm2Keqp6ezgeKLh9SqNuKmdlxYmU2UPS8sr+kW2N7
+KPUzm4EikG7SEoo1seQzPCsUjVQ1uv7ubpifQyt+1HAbgTKxnu9ChuwPobM
r6pxmwLlP/amLzJHMR98J0g6CJTN7g+S530wh7+Q2TsPFPPXgi7dWC9D2Yas
vCigWGqdlC8MxtzmZE9vAYrNze7Pt8IxM1aVa0sBxW5mQ7IP1s93De/S0VGg
OFbyyZOxXr7f/Bk5iNd3/vFY090Nc70iZVcRUNwkrA3iNTCzTp2rVwaKx+HY
HcslWC9nfCulXIFy9JbBPqNQzKUyk00KQPGq6PXyNsfM6rNVpwLllITS5d4e
rMfozJopZ6D4b6iNFUvF/CW7Ly8AKIGHPdK2HMF6Xlet/bIBKCEVueXP5jF/
UjbskwTKtcOGk1dW4Xyxvxxs6QWUmzGfWFVfMFfMqXbPAuVWRYjATBbOL9Lx
ulAloNwTr1dzo2NeOlRviOP9oGKHk4E9zs8vVrQIHK/s4ZnDx3H8J5zL9Nqv
ASVX/K5f+jDmLwpaAt1AKfD4fFME+/P3z5qpUOzfl+JHa7/H4fqgusVcawwo
NRuE2mVxfZou0w1rwPGs93j6ZQcJ1xO7pfky7P/m8r/zFUW43ly3KcsIA0qP
RxjldjdizqnuWLO7FyhT5Ql3zVYiJvHx64VrZkCZGTbJPNOH61myjGY6D1Dm
xQae5WUiJvuA+NM0/D7bg9SyWg/Xvzn9Hit70BYUK1icxPpZNuWTOWwL2qqH
mj1TYhEhsMPLPvgsaKuHnrl89hyut8YPYp7xgLZmokq6vTsihEgOp1clgbbO
u3O9IrhfiXArzt1cAm2T9eRtwa2IEO8fVgQ/0LYXu67hwoMIGd6X8wy8X0S5
9bBsICLIglSZE19BO6qLwZlzQwTFpF18qBC0r08+lH9vjght38vna3RAO1Zt
YfdVKUTofFVX0R8C7dTop3WMAty/PvYnuMuAdqmHWMbHMUSYaihtOmoK2r/E
OvbHuyLCnlRAVrQE7QlvRZFi3G/2FEbYlxqD9lTrsfKub4hwBPN/AYugPR/F
LbXiCCKcjwZztpnDOu5lgzc3cL9yf6Oaq50J65T+JtPCLyPCe4Br++lHsM6+
9wi3Tx4irhrvBJorrKvJYOWYE4ioD9tc/rcDdK42BG35+QOx6INFiw0poHNT
O6sjYwu+zzRcqOo3BZ1bce2uzpmIZfwovT8kGnTuHSadbnNHrI0+HUSTA+g8
5H2XWfgFsTbP2Fu/fQQ6NdtUl0K6EWvX+x2jhAfozDe3Vq1sQKyTrWuvdWIm
aPPb2tQQ69StwpYzsaCzkKTcFRmOWKft/1hcnABdHq8zY0wzxAr45F/dNwq6
ksLKsgNViBXSKf59zg5011n7Bz4uQqzrIUHOsXGge6hdUf+/LMR6eN8h9JYZ
6B5ZiBCxw/vlrCp9TjUEXS/KxI8Dw4j16Ma5nO2moOsbVXXvsjpi5Z2RDPqh
Cboh4MJ6k41Yz/VM5OzJoBtfnNSwMwexqvbe2Sz+BXSbU2T2HMpFrPfm9f6D
fKD7tiVMx78F3xcjlPnGPUG3nTHKHzGGWF21wYQqtr9nT2n5IzJi9dDXmv7L
At3v4o6KE3mI1be0LOeJz8MOvzty5gliDRteiuvbAlTdYysDrzxDrFnO8oXo
d0DVu3J5P543WHOzGQ6ZmUA1eDhnPq+DWPM/RZz2uwHVZOijtAf+nvF6Y+iI
GVAtXJOKEbaPfaRLzDMMqAfsVGZY2YjNvWlvt7wqUD18YvsK8XzEI/rZNUUD
qEdvctd5qWP+Irr+7jRQvZt/3O7NQmy+U+f5/fqAGrT5MbU4A7EFw/b1RQgA
9Y4R1edkCmKLr+MVjogFavyeDAeNL5g/jlQHKAM10V9y04A8YkuEHWo/TwJq
WsGsqDWev1a0UNIEdYD6hFz6ROseYkuZdVuFkIH6bLvmna89mHtPK5wNAGrh
0cTgBDzPrfJ+KObvC9SyrGArvjjElr5V/dhnDKivlUx/fY9FbJnygr2LkUB9
s/HZ+6ROxJbd1J6zA9vf6qJcvmsF5lfBzmMEUN8ncEXV4PlervKMUNkRoA6s
aFx7H88LCncHzkaOAPUb1Ujc/h1iK/LZlN9wBeqwbc4/EVHM/lvIq9lAHbt+
tTEIz8dKFg2nqoyB+o/X5rDjVcRe083zkc4AKnHUbWAn9peysbNLtzVQF5p9
Ha2qMSfWTTe3AI3n5p3t/+H5WWV365W2KKDxT2XVbcDzscoTr6qRbKAJ7ywx
oWshtiqXvKeXNdAkV31ap+mGOevZDwULoK0KHMtWPYf5zx3twCqgyXxir1HA
/lAziey52wO0NalrVkg0Y25MTb5fBDTVJeo1oWHEJvHXnSyWAprGQeDmwfMU
aeu8zM8woK3T8Jhl0jGX3ygb8QEaNSrA++8OzJNTeS8agKY/dmXktxdiq6sc
PJ5kCjQj68T9Py9jtvsh7HMeaBvyc3u/pWEOCcx2OAs0U4mqnZ8rMOfI7W8K
Ahrya2v50I25re3QpRGgbeke3Nw+hfnPrR8JbKBZGE5XtQghtobkYVVXf6BZ
JXIZNGD9aVAt3byUgGbLWplfbYbZymwkA59/1z71tWXOmA9tl1ClAm3PK8P0
wjOYzx4ytsK/71WxkH2C46txLaah5AguaZf2xmbnYk5sVzOYAdr+H8eF019j
zlZpfj8AtEPbzl9OwvOjxrMowwbs/yOPby7EsTCXcE2fVQaal3BaQAzWn0Z5
bES4JdC8vQumrlIxVxjdyCCA5tte53nJCnPpTFalH9D8aV3fQo5gLmzw7x4F
WuCdH86BYZhznz6RnAZa0Nx816lkzGn5y0W9QAt1ErA+XoL5drOBxATQLlbI
vj78HnPYguiteKBFKFBM909g9rZyfnIZaFGhG0ud+TA7FP0dTQXa9a+2VHsV
zJs2lLXPAy0G9j+23YhZuf/WdBLQYrNOqVo4YH8vpx7/6AS0eL7wZDiFeTAU
CXsCLdEzTmoj1rN6RaiE4BLQUloe3jTMwRyb+hV1AC1du5SPWof56LdaMRzP
7OlPDNI/zIKdsnu3AC131/ipNZJYLz0XP/I0Au1pEXtMVhtzuhMtngS0onNr
vogexEwJSRfB+5d+pu3hP4/1OdFu3KANtMpN0LaM818tzzpwAeundvnwq7m3
mNe0W3D0gNZ+Ne/BgBHOj5+KoerYvs7nhBcV76dyrzSlHev5Q9926sVJzFuH
y2+bA+0LeeSlOq5vykkL4lYOQBt9q9LjjeO3RtPKaVoVaOOzvinVMzh/X2d6
H8gF2pTCq0MSON+V3O85vtkItDlv16miSJzvMe4RuR6gxyVgwxvKRmz5jiT3
DZ2gx53i75kzhtlFaLWnNejxUpNbO3pxPfmu9h3pgJ6A01isahGuNxOuZm/G
QE/scZRS4wnEXv1djLknDvTkLeuNRT8j9spDvMoMQ9BTGBhLNnyD2JJvfpA3
eYKe0ukVi/uxHiS1r3cWpICeSrJ7w3Nc3yR+0/uSD4Le2vHFnXssEVvMfl33
nDno0W+u90rB+SZQccPW3gz0DFXc214/Qmz+hbdaEROgZ1QcRZ2Mx2w6a/Ut
H/Q29Pf8M/NDbN5KviBuY9BDOv6XhsmIzZV0WvT1POjZtD+7T0lCLBYjrCrk
HejtiMixmJvHLPBGJmAW9HaapM7W7EQsQrop798N0LPPibbeI4D7DYV9bucT
0HO5cIIVGoj7lUnCrIgv6B3TJe99b49Y4zOxXjKLoHc5+qF0oBhifeq1YUdr
g17klpQ65IVYvdk7X5Tg810h4nyEXyPWR78wEXER0Lt+5NLr9POI9YH3hMl7
zLGmB/2bxxGrY9V0+/QJ0EubXNOl8AaxXv8gxyoeAb1Km6SYuouIVbBXVzkQ
71/Fiq8bnECsfOLna6NdoFf9OHZuwQmxnia7xKUMgF4d73VXY9w/c3sjjM3x
+d68PK/5tA/fF7bYN/NUgV7Pun21iXTESvwRPcyD/fFHVPnvyVHECj9B9dbM
An2NtzmOijsQa2eItyadAP3rK/c1+25GxFxJ2B5xQ9C/0Wgx3sdGxKyR5MfT
UaAffY4utrUEETNl53oPKYH+7UGh3fJ4/p96+eH3tTLQT8gt+dIohohfXeu7
NqeAfjaIT8v3IWJA26wtyg/0a33rpJv8ENH0QqTq9kbQr1d7ul5PGxGNe+ai
3mqAfkNPgkvKD0Q0ENR7tFjQf7PRJ93PCRF15k+UH7mDfruAPFnRFBFV00qn
ikdA/0ua/6bTQogojBIVeNII+v/eaXgoZSAi9TvjTLAF6DM9qOsMNiLifmvj
NXYh6BPE+nmrHkSkFMtaPakD/UUNm6hz+PukGw55/1UAnSfU/0kXti/exp/t
fALoK3Tq5qIAEdEKu069KgK6ZMPb6tQviLipeE2lMhLoUs49V4oDEHFD+fj8
Ay+gr44ckx3KRcQ1iuH7nEagKw6uMN20EhGRe9RTujyATo7ZH/lnGBGh7A3t
b0OBrq1+zE4gFLOsJLfhQaCvqzwtu0YGESFGRdvfmAKd+jMyz9oaEcFBB7JF
lIFu9N/T9uwiRJxddeeBUQ3QN0+xZVwiEHEqa3jIOQXoWyN5v/kpI8J30LzE
RBvo2xTEc6MqMMvHVG7mA7qlhdrG4klE+CT2F2rbAt0u3fKAhAMijj+Ne1xc
CPR9dgmPX2sg4oheWdk1AaC7DWQTOh2IOBwTfvxpFtDdTxRbJgQhwmPS8GKx
MdAPRb0fP96GiEPPD6bMKQD9WK3wOkl/RBywHZt6vgT04ztkQ87j+757paaJ
cB3QT/SvbfvRhFnLiZFXAPSTzC0+5XKI2C+cML/JHugBtJCC/bWIcP35TLbb
CeiBr64vNXthPpRlHIfXO2eTtFMfzx8u3+IyruDznj9WMsPnieeF715fOzSA
Hp4xrf8U68+JwzNanQ30GMmDJQSeP/bE378SsgXot9JP8XvwYdbLaQsrAXqs
zgXHNjy/2HeUu1R2AP2uZTIjgxuz5GxmRRnQk8M/bNiG47nrWd+y9jDQ70t8
v/bcHrOrTifud/TU1D+f5RYwC0WLHjcHekalWPCkHSJ2evue+QVAz/m77WXc
P0TYWbV/9DUE+uOLDqKL6ZgFro46PgJ6nriHm6clInY07TJv8gR6PiWMY5KK
2UpskeUP9GflMTseWmCW4P7wEMfz+bb76WJ/EGH7kf9vJtZf0aEKs6EtmI+b
vrlmAfTiP29uW+H42hqf6j7rA/TSCz3fihMw8xe9r4sDekXy3/CocUTYPDm+
Mg+vV6W13DkTh/niQMQ5N6C/LJNQc8X5ZbP34GYeS6DXdGs36OL500Ys6TUX
tr/usvC+Ddgf1r9C1QIxN+j/mt+K42Xd2O51/yvQX39/E2PXizk7+qZlNdCb
7uRoukxjjqoMPJMO9ObNEbVH+TF7O4iZiAG95a+Hsx/Wh7W9m25/J9DfPoC/
If/7/8amrhdvYoH+brfKjSgbzFolXjF+QO/gWlK/44FZhk/xTx/Q3xcOVKee
xyxQd+sLjm/XwZeOj+8gwoo1fgHfv+gfJJOni7C9Vn/CUn82AL2nLujqqzrM
vy7e774M9F6/vaotnzB/n1Qbxvnfp2pU+QHba/X1dScPF9A/d0rbfxP4HwuA
YxDQ+y/O/p5Yg/lbsYAZzo9BWlfkP2yv1Y/WAtceoH/9VqjMZYt5wqrmJtb3
0O1b5aKHMc/RS+dygT6MTu6SwfZaLUWKLWQC/ccfm3E17H9rsf+MHPF6PzO0
L+vgedZaaX/yYjTQf+0UVlyP7bWmjmT8h+0ZW/pVsgXXU+utXVlFG4A+UfBm
xw6sB+t96gu2PECfdM8edcH2Wgd8Ye2mAn1aIuLiEVwPrGP/jXpgvf+p8ZA7
ZYT5eQB/2Beg//WFF+exvdadDnf5zgN9vp3zIzYEx1vepLUG64FxYSD0/v/0
sdn07QtcDwndl6sfPcHsnT4eh/23EBO0vRrbY9McOuYlA3TOf05DzTOYCcbv
J91AX5oyCv4giPWn827PxWww4LGdfTpujPn+lZ2/e8CAd7HLfH4H5l7PD5+f
gAF//vPBZTz/71iVcV8iFQyExU5Krr6L+Z7UTYUaMFjR9itgM17frnjwxb8j
YLAy5I34Dly/d3K7/HehCgxWrct+5KyCeTcpQfAsGMjcPNTn+798ZCaffyoJ
BmusB0xTniJi94FZmydlYKDMrvqY04C5tix7rAAMVJ8k++J5n7BXe9VA8QID
DRGnzGa8vv3kLbv6cDDQbu3im8P1xiFN/MqWJTDQceswf+KOCEfBlat9i8BA
909b5CHcrxzPcNfyU8FAf/Ub3vc4f512ZY/luIHB+kMveZ7ifulMajsU3AgG
W1k5XB4/EeGmtqv09QwYbIvOAvkBzHlBvYlRYLBdJeNiJ+5X+w3Oru91AAPr
bcnLZo24ftpO6EbZg8GuO7eWFLIRcfDeNdn1kWCwnxK00I39dzRUtmPlBBi4
V5/ddN0NEZ6qbwpoX8Hg4M4zIYDrvWcztXTBDgwOB55kF5gjwkuelCerCgbH
6z1YN3D9P9F1ZOMhbTA462LL3Iz7sd+duP3PxMDg9nXV2Rc4/y5sXlg7rAQG
d/6bDhFuQUSYjkhWkisYxM1W83roIuKibGehrRMYJLjtlZYiEBE+H3C7iQCD
NFqMUcBt3A/r33yfOQEGTz6ygtZX4/6a94MZIQQGb0hdnJrViEhLTjc4KQAG
i9URQm/x+q83+F86i/Wx2Br7fasP5s3TLU11mHvTK6slMdt4b1XC8VycqTrx
zBmz+5HO5nkw4Gj8fXf7F+ZI1537YjHHHIx1xPnxutPuQ5kEGCy5m8l+24rv
H17728jXMHvbzOwdxXx6yLME62cpyKWl8wbmkMOGgfmY4wKD67sx3zrueSEJ
85v8/mzsj8aSIPXfPGCwTFPMOB6O7zdc6UtB2F/LppRzw9ifTSIaVZux/5et
1u9yxedpWvXk8Se83/LhPdy22P4mzXI5W3ze5cQbh6n4/tJk273jwf++z07a
9BjX9yYnl8SV/1v/xSNpFWxf04HvUnLY/uW2+qaVVMz+M6ld/3u/733adWxf
U2hQfuA7zD8Hz/KcxRzFNZUImGd/24UoYL59/SC1A/MyS3OuBnOyFJ/R0P8B
y6+dew==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.3947246565327053`*^9}]
}, Open  ]],

Cell[TextData[{
 "\t\n\tBut\[LongDash]beginning with Version 3 (1996) and continuing with \
Versions 4 (1999), 5 (2005) and 6 (2007)\[LongDash]it has become possible to \
enter many commands using a \"two-dimensional\" code that looks much like \
ordinary mathematical notation you use when working by hand or create when \
writing in ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"T", 
     AdjustmentBox["E",
      BoxBaselineShift->0.5,
      BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}],
    SingleLetterItalics->False], TraditionalForm]]],
 ". Returning to our recent example: to evaluate ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", 
     RowBox[{" ", "0"}], 
     RowBox[{" ", "\[Infinity]"}]], 
    RowBox[{"x", " ", 
     SuperscriptBox["e", 
      RowBox[{"-", 
       SuperscriptBox["x", "3"]}]], 
     StyleBox["dx",
      FontSlant->"Italic"]}]}], TraditionalForm]]],
 " one might use the ",
 StyleBox["BasicMathInput",
  FontWeight->"Bold"],
 " palette (of which more in a minute) to construct the command "
}], "Text",
 CellChangeTimes->{{3.394724709282152*^9, 3.3947247287107687`*^9}, {
  3.3958718319649677`*^9, 3.395871837224243*^9}, {3.395871885467689*^9, 
  3.3958720096998987`*^9}, {3.395872043951157*^9, 3.395872046709063*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], 
  RowBox[{"x", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", 
     SuperscriptBox["x", "3"]}]], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "3"], " ", 
  RowBox[{"Gamma", "[", 
   FractionBox["2", "3"], "]"}]}]], "Output",
 CellChangeTimes->{3.394724764514414*^9}]
}, Open  ]],

Cell["\<\
which, as you see, functions exactly like its telegraphic counterpart. The \
standard collection serves most needs, but can readily be expanded by the \
user who has specialized requirements.
\
\>", "Text",
 CellChangeTimes->{{3.395872103165753*^9, 3.39587212030284*^9}}],

Cell[TextData[{
 "The ",
 StyleBox["Palettes",
  FontWeight->"Bold"],
 " menu leads you to a selection of six pallets listed above the line (I will \
have nothing to say about the advanced options below the line, or the \
procedure you can use to construct palettes that serve your specialized \
needs). Open each, to get a rough sense of the lay of the land. The ",
 StyleBox["AlgebraicManipulation",
  FontWeight->"Bold"],
 " palette provides quick access to common commands we will soon commit to \
memory, so is of relatively little use. Of especially high utility is the ",
 StyleBox["BasicMathInput",
  FontWeight->"Bold"],
 " palette, which you will often want to have available in some handy \
position on your computer screen. Also of very frequent use are the resources \
of the ",
 StyleBox["SpecialCharacters ",
  FontWeight->"Bold"],
 "palette, which is seen to be really a collection of twelve palettes: ",
 StyleBox["Palettes > SpecialCharacters",
  FontWeight->"Bold"],
 " and ",
 StyleBox["Insert > SpecialCharacter... ",
  FontWeight->"Bold"],
 "serve equally well to get you there."
}], "Text",
 CellChangeTimes->{{3.3947249651384163`*^9, 3.3947252390079412`*^9}, {
   3.394725269057184*^9, 3.39472533559262*^9}, {3.3947253683321257`*^9, 
   3.3947254714669952`*^9}, {3.395763913671471*^9, 3.3957640084341183`*^9}, 
   3.3957640429706993`*^9, {3.395872136971569*^9, 3.3958722551023903`*^9}, {
   3.395872301333708*^9, 3.395872398011807*^9}, {3.3958724434374733`*^9, 
   3.395872444604208*^9}, {3.395872503147379*^9, 3.3958725361887283`*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.395874506512013*^9, 3.395874506523726*^9}}],

Cell["", "Text"],

Cell[TextData[{
 "Concerning the ",
 StyleBox["BasicMathInput",
  FontWeight->"Bold"],
 ", a ",
 StyleBox["CAUTIONARY WARNING",
  FontSize->18,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 " is in order, for ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " 6 has in this connection developed an ",
 StyleBox["unfortunate quirk",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 ". Suppose we are working in \"Textbook\" style, and (because we went ",
 StyleBox["Window > ",
  FontWeight->"Bold"],
 "\[Checkmark]",
 StyleBox[" Show Toolbar",
  FontWeight->"Bold"],
 " at the beginning of this work session) have the \"Toolbar\" showing (which \
is always a good idea). Suppose, moreover, that\[LongDash]having placed \
ourselves in the ",
 StyleBox["Input", "Input"],
 " mode\[LongDash]we propose to use the ",
 StyleBox["BasicMathInput",
  FontWeight->"Bold"],
 " to write"
}], "Text",
 CellChangeTimes->{{3.395872571117893*^9, 3.395872621940997*^9}, {
   3.3958726644278097`*^9, 3.395872747555105*^9}, 3.3958728111842537`*^9, {
   3.395872842633339*^9, 3.395872850608891*^9}, {3.395872890930279*^9, 
   3.395873028531869*^9}, {3.3958730894531937`*^9, 3.395873093845118*^9}, {
   3.3958731950149183`*^9, 3.395873222724663*^9}, {3.395873310739025*^9, 
   3.3958734355711327`*^9}, {3.395873499744812*^9, 3.395873529091711*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"\[Integral]", 
   RowBox[{"\[Placeholder]", 
    RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "Output",
  FontColor->GrayLevel[0.5]]], "Input",
 CellChangeTimes->{{3.3958730425261307`*^9, 3.395873059165308*^9}}],

Cell["\<\
We are astounded to discover that the symbol actually created by the \
\"integrate\" button looks like this\
\>", "Text",
 CellChangeTimes->{{3.395873573715946*^9, 3.3958736184933434`*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"\[Integral]", 
   RowBox[{"\[Placeholder]", 
    RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}],
  FontColor->GrayLevel[0.5]]], "Title",
 FontColor->RGBColor[0, 0, 1]],

Cell[TextData[{
 "and that ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " has flipped spontaneously into \"Title\" mode. To create the symbol we \
intended, and to get on with writing out intended command, we have to return \
to the Toolbar and\[LongDash]by hand\[LongDash]flip back into ",
 StyleBox["Input", "Input"],
 " mode. It turns out that this disease is present only when the ",
 StyleBox["BasicMathInput ",
  FontWeight->"Bold"],
 "palette is being used to creat the ",
 StyleBox["first",
  FontSlant->"Italic"],
 " symbol of a command: no problem arises if the palette is used to create ",
 StyleBox["subsequent",
  FontSlant->"Italic"],
 " symbols. We can use that circumstant to construct a ",
 StyleBox["WORKAROUND",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 ": To create (say)"
}], "Text",
 CellChangeTimes->{{3.395873677078683*^9, 3.395873715421816*^9}, {
  3.39587390968891*^9, 3.395874261478868*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"\[Integral]", 
   RowBox[{"\[Placeholder]", 
    RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}],
  FontColor->GrayLevel[0.5]]], "Input"],

Cell["first type (say)", "Text",
 CellChangeTimes->{{3.395874346863606*^9, 3.395874347174514*^9}, {
  3.395874414729616*^9, 3.3958744240721197`*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"q", 
   RowBox[{"\[Integral]", 
    RowBox[{"\[Placeholder]", 
     RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}]}], "Output",
  FontColor->GrayLevel[0.5]]], "Input",
 CellChangeTimes->{{3.395874357728698*^9, 3.395874363963039*^9}}],

Cell[TextData[{
 "and then ",
 StyleBox["erase",
  FontSlant->"Italic"],
 " the ",
 StyleBox["q", "Input"],
 ". Alternatively (and just as quickly) one can avoid the problem altogether \
by ",
 StyleBox["using the keyboard",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[" (in the manner discussed below) to create 2-dimensional symbols",
  FontWeight->"Bold"],
 ". For  example, one has only to type \[EscapeKey]intt",
 "\[EscapeKey] to create"
}], "Text",
 CellChangeTimes->{{3.3958743725446663`*^9, 3.3958743788313017`*^9}, {
   3.395874444824616*^9, 3.3958744693689404`*^9}, 3.3958879169972057`*^9, {
   3.395887969390656*^9, 3.395888065673304*^9}, {3.3958881059530897`*^9, 
   3.395888153849815*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"\[Integral]", 
   RowBox[{"\[Placeholder]", 
    RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "Output",
  FontColor->GrayLevel[0.5]]], "Input",
 CellChangeTimes->{{3.3958881646913967`*^9, 3.395888170885013*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.3958745217413397`*^9, 3.39587452181069*^9}}],

Cell["", "Text"],

Cell[TextData[{
 "What distinguishes the \[SelectionPlaceholder] boxes from the \
\[Placeholder] boxes that are evident on the ",
 StyleBox["BasicMathInput ",
  FontWeight->"Bold"],
 "palette? The answer is made obvious by example. If you were to enter  "
}], "Text",
 CellChangeTimes->{{3.394726817533639*^9, 3.3947268865937967`*^9}, {
  3.394726996787691*^9, 3.394727024179656*^9}, {3.3958366406228933`*^9, 
  3.395836677542235*^9}, {3.395836732150011*^9, 3.3958367487039022`*^9}, {
  3.3958745786272593`*^9, 3.3958746101157837`*^9}, {3.395874965639903*^9, 
  3.395875002833149*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{
   SuperscriptBox["x", "2"], "+", 
   RowBox[{"Sin", "[", "x", "]"}]}], "Output",
  FontColor->GrayLevel[0.5]]], "Input",
 CellChangeTimes->{{3.395875012826663*^9, 3.395875026020825*^9}}],

Cell[TextData[{
 "as ",
 StyleBox["Input", "Input"],
 ", then to ",
 StyleBox["Select",
  FontWeight->"Bold"],
 " that expression and to hit the ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Integral]", 
    RowBox[{"\[SelectionPlaceholder]", 
     RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], TraditionalForm]]],
 " button, the expression would go inside the ",
 "\[SelectionPlaceholder], producing"
}], "Text",
 CellChangeTimes->{{3.39587503670361*^9, 3.395875160244492*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      RowBox[{"Sin", "[", "x", "]"}]}], ")"}], 
    RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "Output",
  FontColor->GrayLevel[0.5]]], "Input",
 CellChangeTimes->{3.395875176548049*^9}],

Cell[TextData[{
 "Now place the cursor on \[Placeholder], type ",
 StyleBox["x", "Input"],
 " and get"
}], "Text",
 CellChangeTimes->{{3.3958751977217197`*^9, 3.395875242620777*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["x", "2"], "+", 
     RowBox[{"Sin", "[", "x", "]"}]}], ")"}], 
   RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",
 CellChangeTimes->{3.3958752551370163`*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   SuperscriptBox["x", "3"], "3"], "-", 
  RowBox[{"Cos", "[", "x", "]"}]}]], "Output",
 CellChangeTimes->{3.395875258900085*^9}]
}, Open  ]],

Cell[TextData[{
 "Similarly, we might type and ",
 StyleBox["Select",
  FontWeight->"Bold"],
 " ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[SelectionPlaceholder]", "\[Placeholder]"], 
   TraditionalForm]]],
 " button, on the other hand, gives"
}], "Text",
 CellChangeTimes->{{3.395875279106031*^9, 3.395875331062756*^9}, {
  3.395875404198682*^9, 3.3958754401525993`*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"1", "+", 
   SqrtBox[
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{"a", "+", "x"}], "b"]}]]}], "Output",
  FontColor->GrayLevel[0.5]]], "Input"],

Cell[TextData[{
 "and then hit the ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[SelectionPlaceholder]", "\[Placeholder]"], 
   TraditionalForm]]],
 " button to obtain"
}], "Text",
 CellChangeTimes->{{3.395875462817815*^9, 3.395875486304757*^9}}],

Cell[BoxData[
 StyleBox[
  SuperscriptBox[
   RowBox[{"(", 
    StyleBox[
     RowBox[{"1", "+", 
      SqrtBox[
       RowBox[{"1", "+", 
        FractionBox[
         RowBox[{"a", "+", "x"}], "b"]}]]}], "Output",
     FontColor->GrayLevel[0.5]], ")"}], "\[Placeholder]"], "Output",
  FontColor->GrayLevel[0.5]]], "Input",
 CellChangeTimes->{3.39587550377383*^9}],

Cell["\<\
which, after entering a 3 into the \[Placeholder] becomes\
\>", "Text",
 CellChangeTimes->{{3.395875533523404*^9, 3.395875559521576*^9}}],

Cell[BoxData[
 StyleBox[
  SuperscriptBox[
   RowBox[{"(", 
    StyleBox[
     RowBox[{"1", "+", 
      SqrtBox[
       RowBox[{"1", "+", 
        FractionBox[
         RowBox[{"a", "+", "x"}], "b"]}]]}], "Output",
     FontColor->GrayLevel[0.5]], ")"}], "3"], "Output",
  FontColor->GrayLevel[0.5]]], "Input",
 CellChangeTimes->{{3.395875569319414*^9, 3.395875571274006*^9}}],

Cell[TextData[{
 "Our final example makes clear the fact that in some contexts \
\[SelectionPlaceholder] distinguishes the box into which the next keystroke \
will be inserted (",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " manuals often call \[SelectionPlaceholder] the \"SelectionPlaceholder,\" \
and \[Placeholder] simply \"a Placeholder\"). We have interest in a 5\[Cross] \
7 matrix, so go ",
 StyleBox["Insert > Table/Matrix > New",
  FontWeight->"Bold"],
 " and, by selection the appropriate options, create"
}], "Text",
 CellChangeTimes->{{3.3958757583539877`*^9, 3.3958757636520042`*^9}, {
  3.39587580483677*^9, 3.395875861982582*^9}, {3.395875908276903*^9, 
  3.395876142874856*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"\[Placeholder]", "\[Placeholder]", "\[Placeholder]", "\[Placeholder]",
        "\[Placeholder]", "\[Placeholder]", "\[Placeholder]"},
      {"\[Placeholder]", "\[Placeholder]", "\[Placeholder]", "\[Placeholder]",
        "\[Placeholder]", "\[Placeholder]", "\[Placeholder]"},
      {"\[Placeholder]", "\[Placeholder]", "\[Placeholder]", "\[Placeholder]",
        "\[Placeholder]", "\[Placeholder]", "\[Placeholder]"},
      {"\[Placeholder]", "\[Placeholder]", "\[Placeholder]", "\[Placeholder]",
        "\[Placeholder]", "\[Placeholder]", "\[Placeholder]"},
      {"\[Placeholder]", "\[Placeholder]", "\[Placeholder]", "\[Placeholder]",
        "\[Placeholder]", "\[Placeholder]", "\[Placeholder]"}
     }], "\[NoBreak]", ")"}], "Output"]}]], "Input",
 CellChangeTimes->{3.395876158272172*^9}],

Cell[TextData[{
 "Placing the cursor on \[Placeholder] the in the upper left corner, we type \
",
 StyleBox["a", "Input"],
 "\[TabKey]",
 StyleBox["b", "Input"],
 "\[TabKey]",
 StyleBox["c", "Input"],
 "\[DownArrow]",
 StyleBox["d", "Input"],
 "\[DownArrow]",
 StyleBox["e", "Input"],
 "\[DownArrow]",
 StyleBox["f", "Input"],
 "\[TabKey]",
 StyleBox["g", "Input"],
 "\[TabKey]",
 StyleBox["h", "Input"],
 "\[UpArrow]",
 StyleBox["i", "Input"],
 "\[TabKey]",
 StyleBox["j ", "Input"],
 "to create"
}], "Text",
 CellChangeTimes->{{3.3958761770080137`*^9, 3.395876374030846*^9}, {
   3.39587649268349*^9, 3.395876540887269*^9}, {3.395876578268907*^9, 
   3.39587658143497*^9}, 3.395876617571093*^9}],

Cell[BoxData[
 StyleBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"a", "b", "c", "\[Placeholder]", "\[Placeholder]", "\[Placeholder]", 
      "\[Placeholder]"},
     {"\[Placeholder]", "\[Placeholder]", "d", "\[Placeholder]", 
      "\[Placeholder]", "\[Placeholder]", "\[Placeholder]"},
     {"\[Placeholder]", "\[Placeholder]", "e", "\[Placeholder]", "i", "j", 
      "\[Placeholder]"},
     {"\[Placeholder]", "\[Placeholder]", "f", "g", "h", "\[Placeholder]", 
      "\[Placeholder]"},
     {"\[Placeholder]", "\[Placeholder]", "\[Placeholder]", "\[Placeholder]", 
      "\[Placeholder]", "\[Placeholder]", "\[Placeholder]"}
    }], "\[NoBreak]", ")"}], "Output",
  FontColor->GrayLevel[0.5]]], "Input",
 CellChangeTimes->{{3.395876391847283*^9, 3.395876470011964*^9}}],

Cell["\<\
This illustrates how (very commonly) \[TabKey] and (less commonly) \
\[DownArrow], \[UpArrow], \[LeftArrow] and \[RightArrow] are used to adjust \
the location of the box \[SelectionPlaceholder] that will receive the next \
keystroke.\
\>", "Text",
 CellChangeTimes->{{3.395877525869815*^9, 3.395877690811957*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.395877978705565*^9, 3.395877978716895*^9}}],

Cell["", "Text"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Creating 2-Dimensional Commands & Special Symbols at \
the Keyboard",
 FontColor->RGBColor[1, 0, 0]]], "Subsection",
 CellChangeTimes->{{3.395878027862287*^9, 3.395878055878998*^9}, 
   3.395890683795794*^9}],

Cell[TextData[{
 "\tPalette buttons are a great aid to speed and legibility.  But they \
require use of the mouse, and in some situations their repetitive use can \
become tedious (though deft use of ",
 StyleBox["Cut/Copy/Paste",
  FontWeight->"Bold"],
 " often permits accelerated escape from the tedium). It is useful to know \
that the action of palette buttons can often be achieved directly from the \
keyboard. Open",
 StyleBox[" Palettes > SpecialCharacters",
  FontWeight->"Bold"],
 ", then open (say) ",
 StyleBox["Technical Symbols",
  FontWeight->"Bold"],
 ". Click on (say) ",
 "\[ExponentialE]",
 " and see a \"double struck e.\" ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " considers \"e\"  to be simply a letter, and uses the \"double struck e\" \
to denote the base of the natural logarithms, with numerical value  "
}], "Text",
 CellChangeTimes->{{3.394730011616481*^9, 3.394730070961762*^9}, 
   3.394730265314146*^9, {3.394743281351359*^9, 3.394743380532983*^9}, {
   3.394743422260159*^9, 3.394743487295187*^9}, {3.395878122809132*^9, 
   3.395878122816884*^9}, 3.3958906837965117`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "\[ExponentialE]", "]"}]], "Input",
 CellChangeTimes->{{3.394743493242663*^9, 3.394743496377014*^9}, 
   3.395890683797583*^9}],

Cell[BoxData["2.718281828459045`"], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.394743502603353*^9, 3.3958906837986927`*^9}]
}, Open  ]],

Cell[TextData[{
 "The palette informs you, if you click on the letter \"e\", that you can \
produce \[ExponentialE] at the point identified by the blinking cursor either \
(1) by selecting \[ExponentialE] on the palette and hitting the",
 StyleBox[" Insert ",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["button, or (2) by typing ",
  FontColor->GrayLevel[0]],
 "\[EscapeKey]",
 StyleBox["ee",
  FontColor->GrayLevel[0]],
 "\[EscapeKey]. Similarly ",
 StyleBox[" ",
  FontColor->GrayLevel[0]]
}], "Text",
 CellChangeTimes->{{3.3947435223287697`*^9, 3.394743635223667*^9}, {
   3.394743671692487*^9, 3.394743705849512*^9}, {3.3947440616927834`*^9, 
   3.394744089901079*^9}, {3.395878139523705*^9, 3.395878140259574*^9}, {
   3.395878172683687*^9, 3.395878209659083*^9}, 3.395890683805622*^9}],

Cell[CellGroupData[{

Cell["\[HBar] can be produced by \[EscapeKey]hb\[EscapeKey]", "Item1Paragraph",
 CellChangeTimes->{{3.3947437219072943`*^9, 3.3947437448416862`*^9}, {
   3.3947437761717577`*^9, 3.394743776181695*^9}, 3.395890683810205*^9}],

Cell["\[Infinity] can be produced by \[EscapeKey]inf\[EscapeKey]", \
"Item1Paragraph",
 CellChangeTimes->{{3.3947437810495567`*^9, 3.394743822543239*^9}, 
   3.3958906838109293`*^9}],

Cell[TextData[{
 StyleBox["\[ImaginaryI]", "Input"],
 StyleBox[" can be produced by ", "Text"],
 "\[EscapeKey]",
 StyleBox["ii", "Text"],
 "\[EscapeKey]"
}], "Item1Paragraph",
 CellChangeTimes->{{3.3947438320099*^9, 3.394743891288959*^9}, 
   3.3958906838240833`*^9}]
}, Open  ]],

Cell[TextData[{
 StyleBox["Etc",
  FontSlant->"Italic"],
 ". Not all of the special characters can be produced in this way, but most \
of the most commonly encountered ones can be, and the palettes tell you which \
can (and how), which can't. Notice in this connection that the"
}], "Text",
 CellChangeTimes->{{3.394728290882221*^9, 3.3947282983796988`*^9}, {
   3.394743946804285*^9, 3.3947440145390863`*^9}, {3.394744118726935*^9, 
   3.394744171264182*^9}, {3.3958782429646387`*^9, 3.395878264507114*^9}, {
   3.3958783491570883`*^9, 3.39587834960398*^9}, 3.3958906838250427`*^9}],

Cell[TextData[{
 "         \[Pi] produced by \[EscapeKey]p\[EscapeKey], else by the ",
 StyleBox["Greek Letters",
  FontWeight->"Bold"],
 " palette"
}], "Text",
 CellChangeTimes->{{3.395878364833696*^9, 3.395878425738799*^9}, 
   3.395890683825592*^9}],

Cell["\<\
functions simultaneously as a letter and as a mathematical constant:\
\>", "Text",
 CellChangeTimes->{{3.395878441958021*^9, 3.395878444338779*^9}, 
   3.395890683826082*^9}],

Cell[BoxData[
 RowBox[{"N", "[", "\[Pi]", "]"}]], "Input",
 CellChangeTimes->{{3.39474435194862*^9, 3.394744360756934*^9}, 
   3.395890683827136*^9}],

Cell["\<\
On the other hand, the letter \"i\" is always just a letter: the square root \
of minus one is always double struck: \
\>", "Text",
 CellChangeTimes->{{3.394744468586183*^9, 3.394744559197508*^9}, {
   3.395878477281129*^9, 3.395878494086487*^9}, 3.395890683828031*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 SqrtBox[
  RowBox[{"-", "1"}]]], "Input",
 CellChangeTimes->{{3.39474457932794*^9, 3.394744579599021*^9}, 
   3.39589068382903*^9}],

Cell[BoxData["\[ImaginaryI]"], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.394744580845439*^9, 3.3958906838300743`*^9}]
}, Open  ]],

Cell[TextData[{
 "Relatedly, \"capital I\"\[LongDash]when it occurs as stand-alone ",
 StyleBox["input", "Input"],
 "\[LongDash]is a \"Protected Symbol,\" which is always interpreted to mean a \
complex number:"
}], "Text",
 CellChangeTimes->{{3.394744620094555*^9, 3.3947447029441633`*^9}, {
   3.39475505941558*^9, 3.3947550847269993`*^9}, {3.39475514390318*^9, 
   3.394755163843885*^9}, {3.3947551999453163`*^9, 3.394755207640321*^9}, {
   3.395878508335896*^9, 3.395878584481371*^9}, 3.3958906838308992`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "I", "]"}]], "Input",
 CellChangeTimes->{{3.394744491101329*^9, 3.394744494168064*^9}, 
   3.395890683831883*^9}],

Cell[BoxData[
 RowBox[{"0.`", "\[InvisibleSpace]", "+", 
  RowBox[{"1.`", " ", "\[ImaginaryI]"}]}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.394744495409768*^9, 3.3958906838333893`*^9}]
}, Open  ]],

Cell[TextData[{
 "Similarly protected are ",
 StyleBox["C", "Input"],
 ",",
 StyleBox[" E", "Input"],
 " and ",
 StyleBox["N", "Input"],
 "."
}], "Text",
 CellChangeTimes->{{3.394755227503088*^9, 3.394755247646103*^9}, {
   3.394755410764512*^9, 3.394755410779714*^9}, 3.395890683834646*^9}],

Cell["", "Text",
 CellChangeTimes->{{3.394755412724399*^9, 3.3947554127353487`*^9}, 
   3.3958906838352137`*^9}],

Cell["\<\
Here is a short list of keyboard commands that produce important mathematical \
symbols:\
\>", "Text",
 CellChangeTimes->{{3.395879727843967*^9, 3.395879759017645*^9}, 
   3.3958906838357*^9}],

Cell["\t\[EscapeKey]*\[EscapeKey] produces \[Times]", "Text",
 CellChangeTimes->{{3.395879863010016*^9, 3.395879912200857*^9}, {
   3.3958799769054003`*^9, 3.395879996806254*^9}, 3.395890683836185*^9, 
   3.396116658876803*^9}],

Cell["\t\[EscapeKey]cross\[EscapeKey] produces \[Times]", "Text",
 CellChangeTimes->{{3.395880001511578*^9, 3.395880012053027*^9}, {
   3.3958800588974867`*^9, 3.395880058911292*^9}, 3.395890683836673*^9, 
   3.396116660753837*^9}],

Cell["\t\[EscapeKey]!=\[EscapeKey] produces \[NotEqual]", "Text",
 CellChangeTimes->{{3.395880064512491*^9, 3.395880086399053*^9}, {
   3.395880132407317*^9, 3.395880142627342*^9}, 3.395890683837146*^9, 
   3.3961166623938437`*^9}],

Cell["\t\[EscapeKey]===\[EscapeKey] produces \[Congruent]", "Text",
 CellChangeTimes->{{3.395880951553193*^9, 3.3958809518908577`*^9}, {
   3.395880987578733*^9, 3.3958809952052*^9}, 3.395890683837618*^9, 
   3.396116664441848*^9}],

Cell["\t\[EscapeKey]<=\[EscapeKey] produces \[LessEqual]", "Text",
 CellChangeTimes->{{3.395880146457822*^9, 3.395880154999173*^9}, {
   3.395880185319585*^9, 3.395880192805244*^9}, 3.395890683838087*^9, 
   3.396116666529787*^9}],

Cell["\t\[EscapeKey]>=\[EscapeKey] produces \[GreaterEqual]", "Text",
 CellChangeTimes->{{3.395880193738607*^9, 3.395880202887885*^9}, {
   3.395880236409852*^9, 3.3958802405887947`*^9}, 3.395890683838573*^9, 
   3.3961166683458347`*^9}],

Cell["\<\
\t\[EscapeKey]elem\[EscapeKey] produces \[Element] (meaning \"is an element \
of\")\
\>", "Text",
 CellChangeTimes->{{3.395880252235552*^9, 3.395880333041556*^9}, 
   3.395890683839137*^9, 3.396116670202118*^9}],

Cell[TextData[{
 "\t\[EscapeKey]int\[EscapeKey] produces ",
 Cell[BoxData[
  FormBox["\[Integral]", TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.395880622579862*^9, 3.395880645348681*^9}, 
   3.395890683840226*^9, 3.3961166718820868`*^9}],

Cell[TextData[{
 "\t\[EscapeKey]intt\[EscapeKey] produces ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Integral]", 
    RowBox[{"\[Placeholder]", 
     RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.395880335052907*^9, 3.395880417665265*^9}, 
   3.395890683841589*^9, 3.396116673682272*^9}],

Cell[TextData[{
 "\t\[EscapeKey]dintt\[EscapeKey] produces ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["\[Integral]", "\[Placeholder]", "\[Placeholder]"], 
    RowBox[{"\[Placeholder]", 
     RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.395880654884282*^9, 3.395880688164034*^9}, {
   3.395880925343011*^9, 3.395880926016683*^9}, 3.395890683842914*^9, 
   3.396116675306452*^9}],

Cell[TextData[{
 "\t\[EscapeKey]sumt\[EscapeKey] produces ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"\[Placeholder]", "=", "\[Placeholder]"}], "\[Placeholder]"], 
    "\[Placeholder]"}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.395880714133357*^9, 3.395880742292289*^9}, {
   3.395880930050403*^9, 3.395880930640408*^9}, 3.3958906838446617`*^9, 
   3.396116677306328*^9}],

Cell[TextData[{
 "\t\[EscapeKey]prodt\[EscapeKey] produces ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderoverscriptBox["\[Product]", 
     RowBox[{"\[Placeholder]", "=", "\[Placeholder]"}], "\[Placeholder]"], 
    "\[Placeholder]"}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.395880499578402*^9, 3.3958805113194838`*^9}, 
   3.395890683846277*^9, 3.396116679194357*^9}],

Cell[TextData[{
 "\t\[EscapeKey]d\[EscapeKey] produces ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[PartialD]", " "}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.395880756949539*^9, 3.395880774238596*^9}, 
   3.395890683847473*^9, 3.396116680698206*^9}],

Cell[TextData[{
 "\t\[EscapeKey]dt\[EscapeKey] produces ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[PartialD]", "\[Placeholder]"], " ", "\[Placeholder]"}], 
   TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.3958805292512074`*^9, 3.3958805463662367`*^9}, 
   3.39589068384866*^9, 3.3961166825781384`*^9}],

Cell[TextData[{
 "\t\[ControlKey]-2 produces ",
 Cell[BoxData[
  FormBox[
   SqrtBox["\[Placeholder]"], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.3958810151229877`*^9, 3.395881015134609*^9}, {
   3.3958900146998863`*^9, 3.395890040348927*^9}, 3.395890683850026*^9, 
   3.3961166847222147`*^9}],

Cell["", "Text",
 CellChangeTimes->{{3.395890676728812*^9, 3.395890683850995*^9}}],

Cell[TextData[{
 "The prefix \"ds\" produces \"",
 StyleBox["double struck",
  FontColor->RGBColor[0, 0, 1]],
 "\"  upper/lower case letters:"
}], "Text",
 CellChangeTimes->{{3.395881269364252*^9, 3.3958813210409107`*^9}, 
   3.395890683852035*^9}],

Cell["\t\[EscapeKey]dsA\[EscapeKey] produces \[DoubleStruckCapitalA]", "Text",
 CellChangeTimes->{{3.39588101641501*^9, 3.395881045541443*^9}, {
   3.3958810850969667`*^9, 3.395881110167542*^9}, {3.395881510903699*^9, 
   3.395881517914935*^9}, 3.3958906838525333`*^9, 3.3961166872737226`*^9}],

Cell["\t\[EscapeKey]dsa\[EscapeKey] produces \[DoubleStruckA]", "Text",
 CellChangeTimes->{3.395881518398782*^9, 3.395890683853018*^9, 
  3.396116689113751*^9}],

Cell["\t\[EscapeKey]dsB\[EscapeKey] produces \[DoubleStruckCapitalB]", "Text",
 CellChangeTimes->{{3.395881086120305*^9, 3.395881125042581*^9}, 
   3.395881536638583*^9, 3.395890683853598*^9, 3.3961166907697563`*^9}],

Cell["\t\[EscapeKey]dsb\[EscapeKey] produces \[DoubleStruckB]", "Text",
 CellChangeTimes->{{3.395881086704211*^9, 3.395881100710351*^9}, {
   3.395881133955057*^9, 3.395881134540165*^9}, 3.3958906838541803`*^9, 
   3.396116692537706*^9}],

Cell["", "Text",
 CellChangeTimes->{{3.395881049340332*^9, 3.395881051036479*^9}, {
   3.3958813300642433`*^9, 3.395881334294236*^9}, 3.395890683854838*^9}],

Cell[TextData[{
 "The prefix \"go\" produces \"",
 StyleBox["Gothic",
  FontColor->RGBColor[0, 0, 1]],
 "\"  upper/lower case letters;"
}], "Text",
 CellChangeTimes->{{3.3958813404199944`*^9, 3.395881379462178*^9}, 
   3.395890683855372*^9}],

Cell[TextData[{
 "The prefix \"sc\" produces \"",
 StyleBox["script",
  FontColor->RGBColor[0, 0, 1]],
 "\" upper/lower case letters."
}], "Text",
 CellChangeTimes->{{3.3958813810814238`*^9, 3.3958814249861727`*^9}, {
   3.39588146942717*^9, 3.395881488651095*^9}, {3.395883075630411*^9, 
   3.3958830756403*^9}, 3.3958906838558702`*^9}],

Cell[TextData[{
 "The relevant ",
 StyleBox["SpecialCharacters",
  FontWeight->"Bold"],
 " palette shows what those look like, and you are in position now to \
construct them for yourself, so I provide no samplers."
}], "Text",
 CellChangeTimes->{{3.3958830774594507`*^9, 3.395883186085417*^9}, 
   3.39589068385637*^9, {3.395890798258621*^9, 3.395890833673856*^9}}],

Cell["", "Text",
 CellChangeTimes->{3.3958906838568*^9}],

Cell[TextData[{
 "It was easy to obtain such information in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " 5, is less easy in ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " 6. But if you go ",
 StyleBox["Help > Documentation Center",
  FontWeight->"Bold"],
 " and launch a search for ",
 StyleBox["tutorial/EnteringTwoDimensionalExpressionsOverview",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" you will find links that take you to discussions of various \
specialized aspects of this subject. Or\[LongDash]more \
quickly\[LongDash]visit ",
  FontColor->GrayLevel[0]],
 Cell[BoxData[
  TagBox[
   ButtonBox[
    PaneSelectorBox[{False->"\<\"KeyboardCommands\"\>", True->
     StyleBox["\<\"KeyboardCommands\"\>", "HyperlinkActive"]}, Dynamic[
      CurrentValue["MouseOver"]],
     BaselinePosition->Baseline,
     FrameMargins->0,
     ImageSize->Automatic],
    BaseStyle->"Hyperlink",
    ButtonData->{
      URL[
      "http://reference.wolfram.com/mathematica/tutorial/\
EnteringTwoDimensionalExpressionsOverview.html"], None},
    ButtonNote->
     "http://reference.wolfram.com/mathematica/tutorial/\
EnteringTwoDimensionalExpressionsOverview.html"],
   Annotation[#, 
    "http://reference.wolfram.com/mathematica/tutorial/\
EnteringTwoDimensionalExpressionsOverview.html", "Hyperlink"]& ]],
  CellChangeTimes->{{3.395890300423506*^9, 3.395890313585095*^9}, 
    3.395890457643449*^9, 3.3958905981936913`*^9}],
 StyleBox[".",
  FontColor->GrayLevel[0]]
}], "Text",
 CellChangeTimes->{{3.395881578531117*^9, 3.395881631525738*^9}, {
   3.3958817394301863`*^9, 3.395881796496806*^9}, {3.395881851989945*^9, 
   3.3958819271478653`*^9}, {3.395890094185457*^9, 3.3958901095832787`*^9}, {
   3.395890328093569*^9, 3.395890338860924*^9}, {3.39589037115236*^9, 
   3.395890398052939*^9}, {3.395890637913175*^9, 3.395890639710115*^9}, 
   3.395890683858303*^9, {3.395890868324996*^9, 3.395890906932879*^9}}],

Cell["", "Text",
 CellChangeTimes->{3.395890683859071*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Three Primary Flavors of =", "Section",
 CellChangeTimes->{{3.394755454138628*^9, 3.394755465466607*^9}}],

Cell["Enter the following:", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"?", "="}], "\[IndentingNewLine]", 
 RowBox[{"?", ":="}], "\[IndentingNewLine]", 
 RowBox[{"?", "=="}]}], "Input",
 CellChangeTimes->{{3.3947555148316107`*^9, 3.394755526725584*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{StyleBox[\\\"lhs\\\", \\\"TI\\\"], \
\\\"=\\\", StyleBox[\\\"rhs\\\", \\\"TI\\\"]}]\\) evaluates \
\\!\\(\\*StyleBox[\\\"rhs\\\", \\\"TI\\\"]\\) and assigns the result to be \
the value of \\!\\(\\*StyleBox[\\\"lhs\\\", \\\"TI\\\"]\\). From then on, \\!\
\\(\\*StyleBox[\\\"lhs\\\", \\\"TI\\\"]\\) is replaced by \
\\!\\(\\*StyleBox[\\\"rhs\\\", \\\"TI\\\"]\\) whenever it appears. \
\\n\\!\\(\\*RowBox[{RowBox[{\\\"{\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"l\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"l\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\
\"TR\\\"]}], \\\"}\\\"}], \\\"=\\\", RowBox[{\\\"{\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"r\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"r\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\
\"TR\\\"]}], \\\"}\\\"}]}]\\) evaluates the \\!\\(\\*SubscriptBox[StyleBox[\\\
\"r\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \\\"TI\\\"]]\\), and assigns the \
results to be the values of the corresponding \\!\\(\\*SubscriptBox[StyleBox[\
\\\"l\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \\\"TI\\\"]]\\). \"\>", "MSG"], 
  " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Set"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.394755536815658*^9},
 CellTags->"Info3394730336-2575758"],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\!\(\*RowBox[{StyleBox[\\\"lhs\\\", \\\"TI\\\"], \\\":=\\\", \
StyleBox[\\\"rhs\\\", \\\"TI\\\"]}]\) assigns \!\(\*StyleBox[\\\"rhs\\\", \
\\\"TI\\\"]\) to be the delayed value of \!\(\*StyleBox[\\\"lhs\\\", \\\"TI\\\
\"]\). \!\(\*StyleBox[\\\"rhs\\\", \\\"TI\\\"]\) is maintained in an \
unevaluated form. When \!\(\*StyleBox[\\\"lhs\\\", \\\"TI\\\"]\) appears, it \
is replaced by \!\(\*StyleBox[\\\"rhs\\\", \\\"TI\\\"]\), evaluated afresh \
each time. \"\>", "MSG"], " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/SetDelayed"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.3947555376074753`*^9},
 CellTags->"Info3394730337-9457246"],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\!\(\*RowBox[{StyleBox[\\\"lhs\\\", \\\"TI\\\"], \\\"==\\\", \
StyleBox[\\\"rhs\\\", \\\"TI\\\"]}]\) returns True if \
\!\(\*StyleBox[\\\"lhs\\\", \\\"TI\\\"]\) and \!\(\*StyleBox[\\\"rhs\\\", \
\\\"TI\\\"]\) are identical. \"\>", "MSG"], " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Equal"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.39475553802978*^9},
 CellTags->"Info3394730337-6085780"]
}, Open  ]]
}, Open  ]],

Cell["What, in plain words, do those statements mean?", "Text"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Assignment",
 FontColor->RGBColor[1, 0, 0]]], "Subsection",
 CellChangeTimes->{{3.3947555653912783`*^9, 3.394755566874341*^9}}],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " understands that when we write"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", "=", "2"}]], "Input"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.394755682501267*^9}]
}, Open  ]],

Cell[TextData[{
 "we are ",
 StyleBox["assigning",
  FontSlant->"Italic"],
 " the meaning/value ",
 StyleBox["2", "Input"],
 " to the symbol ",
 StyleBox["a", "Input"],
 ". So we have"
}], "Text",
 CellChangeTimes->{{3.394755632327085*^9, 3.3947556559147263`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", "+", "1"}]], "Input"],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{{3.39475567643432*^9, 3.394755686087729*^9}}]
}, Open  ]],

Cell["If we now write", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", "=", 
  RowBox[{"Sin", "[", "x", "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Sin", "[", "x", "]"}]], "Output",
 CellChangeTimes->{3.3947557913978233`*^9, 3.395882050937554*^9}]
}, Open  ]],

Cell[TextData[{
 "we have ",
 StyleBox["reassigned",
  FontSlant->"Italic"],
 " meaning to ",
 StyleBox["a", "Input"],
 ":"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"1", "-", 
  SuperscriptBox["a", "2"]}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", "%", "]"}]}], "Input",
 CellChangeTimes->{{3.394755755032094*^9, 3.394755778456004*^9}, {
  3.39588206784219*^9, 3.3958820736142673`*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", 
  SuperscriptBox[
   RowBox[{"Sin", "[", "x", "]"}], "2"]}]], "Output",
 CellChangeTimes->{{3.394755784702313*^9, 3.39475579580121*^9}, 
   3.3958820777104797`*^9}],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"Cos", "[", "x", "]"}], "2"]], "Output",
 CellChangeTimes->{{3.394755784702313*^9, 3.39475579580121*^9}, 
   3.395882077835907*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "a", "]"}]], "Input"],

Cell["When we write", "Text",
 CellChangeTimes->{{3.394755823076961*^9, 3.3947558258522263`*^9}, 
   3.395882103518471*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"g", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"x", " ", 
       RowBox[{"Sin", "[", "x", "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "100"}], "}"}]}], "]"}]}], ";"}], "  ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"The", " ", "semi"}], "-", 
    RowBox[{"colon", " ", "says", " ", "to", " ", 
     StyleBox["Mathematica",
      FontSlant->"Italic"], " ", "\"\<Don't show the figure\>\""}]}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{
  3.394755877429121*^9, {3.3958821382659483`*^9, 3.395882209014533*^9}, {
   3.395891016793154*^9, 3.395891021267538*^9}}],

Cell[TextData[{
 "we have, in effect, asserted that ",
 StyleBox["g", "Input"],
 " will be the ",
 StyleBox["name",
  FontSlant->"Italic"],
 " ",
 StyleBox["of a graph",
  FontSlant->"Italic"],
 ". Here is an instance of the ",
 StyleBox["use",
  FontSlant->"Italic"],
 " of that name:"
}], "Text",
 CellChangeTimes->{{3.394755952280077*^9, 3.39475597189469*^9}, {
  3.3947560058895073`*^9, 3.394756006392568*^9}, {3.39589106709496*^9, 
  3.395891092702661*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "g", "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwUV3k8ld8TtqfIvu/7vl0u1/7OXV2KtMnSJoVQISSRLNmSsoRQEWUJlRAq
DsoSUVG2voVUiGTP/ru/v+Zz3jPvzDzPnHNmZt+5E/KnmJiYWJiYONn+Ly0b
Ze7mb9xQsEjZu6sq5qEHds/zjKw653PM7qP3+cCaF9hjT7WC8uBG7GyXrvyr
/ZnY86Sdh8eMUrEIew9lGb4arMGTw8NPrwVLahDVtvXzwppzt2q2hEOxjPVk
HbbjDljr9XVLako6lmeR5HFd3BrrCPnXnMj7GCv05unt3PLEuj0W6R8T27Dy
qHevslgFsA8lwb+4o/9iz0g6OjuatbCe3GX1x81h2PPKM8Tm7c+xTxmBPvtZ
dmAv00NZH1+Zw/quz5cvQTqG5jZSkEwNNhDtN3s7XBFrfq9x2buvBhsK+Ys3
f/UEaxk5ZnL9pzj2zWOqNsq0HXt3uzWIt+MeNvzY8LKg+SPs/d2+uFSPZWyk
JODeyaFZ7GNs1N+xq1vY99y5UU6Jy9jn24aXVH77Yb+uz3jYZWRg33Lfb/Xd
7sbG43Xico2+YiPsg+84cM7YRPSZ4tnPStgoaXfht3Zp7HfI76lbQk+wsXcP
hB0VKrAZj3G/oeS32KRkfE3lhB32F5fanp4Zh/0Ouvhy2fQh9vexgTPmqYVN
fVyeijO3wGZL/C8lb/PHZq6Xf7stm47N5/6tx1M3sbmQ+GpK5G1sQeam3X/C
edi8Ynv7QMkbbCFH99vVHxRs/m0XW2RcMraYcY6pL/oatsiX9WPvl23Y8vVp
ckizGLbsm5P91KoM+8eV2KuY8gJb3jh4/t9iB/YvXutk54mj2L/od/Fu/trY
SrR3jAxzAbYSGZeNMuaxVRYukZYPVtjKP+GEO388sdXwksJzuZPYqvvi99Oh
a9hayERbI+CwNV2H6BXxQ9jav3gnL95ebC1Ox2Mx8xS2HqQ2KfAtGFsb2K7T
4ROLrc+3hbx4LImty2eyCriHYRt+nlwnL9dj665J577ncGEbM9tydtq5YuuZ
9yOD1FywTZ9CrWoZNmy9JXGSg/oH25ykvTo6XYit/94uslZ+B9vy+Gm37ZUN
tsH+yYniNoVt/RVZPLGFwzZEi/Y3/ekBJnPFrmNyidiGdJRlXMQPYLpirsDd
eIWxL9PKt30vML0+EFh3IgDbYDPGh43fAWZOn3ZPVk9sfSz5+s/zwcC8+6q0
cMFhbP35bP1Yficw37zj20y1x9YvK9X52RkDc2/Va9+fFGzdaC3792NuYBHr
EpOJNcbWRne3UNrKgOXwT+9ONS1sLXyBGXtyDVhyNxsutstha7wf02qT7wPL
D1FBVS9BbDW523Vq0BJY1XXdP3FxYKvsn1fz6z2A9YxVXeSjVWzFe6jablYQ
WJ8e59Hb/Qf71/zp9ZL+G2BdDHb9b3oU+7ezGVsRdgM2k5tV15I+Y8vWRcYZ
EvrAFla83UT3LbZ0Iek1QfQIsLMPPEnzq8AWiguNE6ZNgN16jo0k8BCbL+d6
bNGYBexJOw7NPMvC5go+/7eX7AocIqZbNosR2F8v6+ZYzibgcN6/7196APbH
v3isrX4/cNz1fviQ4In9XpYMWj/xHLap5NgxX7THflYpOuyVzAROo42c5xty
2GftdkPdtWbgvCT899RdIax7NFC59vUEcDboUAQxTqxZTJag9JsO262O/j57
ZaahLK7FnzowBDsOIVNltvqGb43i97jqeIA7OLIvhftIw7LgXoGql6+A+2W2
JlZm37DCceT59ZOHYSfTs8vTdpSG1dVQHPtgA+yMG1Oh39Rq2Pyuab/InQY8
t6kBW4LriHUv8YXJtB7wHWHbbrTzHdqRLU8W/tYGfKFdmQK7PiKuk+LbQg00
gS/ntsqf+H7ErRbhZKPMA3xfdCiF7GNo5/2L2htDc8C39q8nijyJeA4FEosn
LYFfsvnEsYi/iJfjhRHnrQfA7+J4RXRjHfGpR81xkXyA/5Iiz4I5C+K70Hgx
ZGkG+LOm77wP4UR8TZlHO2+lAX9djVZpDQ/i3/5rT7nkTuAfjHwRtySI+G2v
V5SuGQL/qq3NKbwY4r/uXbGwNgACEqIDRH8ZxN9+Ytcv7hEQcCpdWvmjgQQM
5ROK696BwMULVz9r6SGBk0/uisldA4HbJKEKLyMkcOOHGbUjFQRqufOTisyR
QPUD4UXCORDo79P3+klCAv2f568PXAWBf3mNVkp0JLB0osrA1h4ExXzsFU/Y
IUFenGtGsD8IGht93co9gAQVtXWiaXwg6Mh8ZuirExLUJyaIlwSA4IWO9Rqp
o0jQ3EXx5TMFEMxIv5bmfBIJEj0WKi9ZgeBzVwnfTC/G+hDdb/YiCPZpFu/+
7MvQF38d7vcaBJeWjNWFgpAgLs9X2LYKhERQK/u+UCQoP/LCPkALhIyuHRy5
GYkEubtjOKPCQMjh4NirrjgkMOeqQir+BUJBcuezuJOQwMeks5Y9u0Do1m+W
IJs0JFBmXyFVrwtCVVXJ++KykEDk/Xci5X4g9OmKnE7LPSSwL0JlT7IgCC3a
POZiK0ACUhNV+pE4EBYWtvhFKkH8I1/YXV9/BmH8t87mK08Qf56TqYGLNwgf
KHG5V1+N+F1O8tfe8ALhgIDJS+svET8f06+DfY4gnIZddDRtQnwNhlW9j0gg
3NObwVfdhfh2xu6R4ckG4fl7ylMLvYjXyddvuicVRARPV7brDyKe6/uqTiq9
BZF9mx8jyn8g7s87t22LjwAR/3bXI1OTiOu3akixYBGIpKT+NdX4i3YsWSnM
kbaDyEf1nXMP1xHnjKX/uf3aILp3v7XbPSHE5ueUrpn/AUT9pPux/yQQq1nP
wYvZCiB6c9xDSlIOMW8sFPU92gTR92HRvRmaDZu9fhNirVYgtqcQUW+QGuY/
uY+dERUEsbMfiyttrjTMsgpc4Wr7DmLXN1IV2esbpmyChzNqfUGsc787U6hp
w3AqZffluXUQp29xvThtgHV92BiLt2kDCZLDIRxZCdvQsx5VeWQCEq4RcG/z
BDDpp3+y1N4OEldKNXhqc4G58x1SU+sAiQbm9Sk9KWDb/NonF5IPkmZl9wul
hYHLtu56/pMJkDJk+yO1zAGC2eE3OLODQOqAbt+1CgoI2YbpNz2ig9R5Z7R6
JhKE1taXUnFyIPX0SWrf900Qsa34fZepAKTeD4XR7pmDyN/I3IrHLiD1l8O9
yjkERG9sy9bTWQNpncMmKe+XQazeB5/4+hhI28YqMicagbjdb9uLvQMg7VPB
7WsVAOKDR1/m+x0B6Ufbvtm++gsSI94Du068Aem3+m0vL+qA5OHSxu9f5kB6
4kiFJt4HJD/qpZgT/4CM6rOrnCXjIPXoMHtDhxHI0L6eveCuAtI8lU5ux5ZA
xn37oZ/yJ0Ha+ymvzNwWyFzFEw98uQ/STdqD8UPqIFNwTKM5YxhkBLZ96T+8
B2SaE4T098uAjIv0k7hT4iAzWrmRx3MYZO7sCagbswVZ5m+/eNuzQKb/cr8R
/jbIyu94fzl6AGS5byjx6P0GWTCsnQYxkDU5Rf2TMQuyx47nu6w5gOzRX4Ns
Ie0ge/la4tvqNJAN3cJHxbOC7J3qIBO/jyCbesvrteItkH05cqxImw9k76e7
LBtfBtkv3NYi43YgWzxTe4Z5C2TXCPpX8xMZ62Qe76/WILcTt3NV9xTI5nm3
pt3YB3IyYg9ih3aD7I2XFm9XhEFOl8lCOBYPsgHto7U1eJDDfvXmG0iBrH18
jxe3KsjZd/vofWMDWYX537x5EiDn+py1PmEKZKZY3roXD4Cc/93s3UY9IPPo
2VcQeghyUTH6A6N1IHNi2ynju84gl3bmrUfSfZDhZQrIaPkGcg8Oui6aJoB0
RcH6/klFkKs2X4n86QfSuzfemrBogVyrUjJfiiNIfRVJ1B14B3L93Gp3LQGk
Tm18yH8hAHLj80hzUg0kx95ws40vg9zK0KHadD6QdL6S5H5RFuQlS2J6p7+B
hCZelJf3NshrpcicuN0C4jFuknkOPSBvcbHqL7UcxPoXjjz3SgP5Y/QfXHcu
g+jJt/UffLaDvK9e6G1rdxC5e8TTUVcY5CPEhFQWbUG4e9pBihGI/P1fZJKt
FAhJ1ouvbDMG+Wddg90rbCBodELBMC4G5F9X+x8p+A0C1u2vUvdXgPzPq3nB
63XA59Li/DicCAoailuPS52A0/3465D7s6BgxpVh4QjAYWjwnwYWCAq75nU6
2NSAdSV1cWvAHhTONB356fIP23ybL+NgdxQUnh5/Kc2Vjv3y6EpTtRcAReM7
wQlePQ3rHn8+5vEIgaL1VT4xkTrE1EBwO8BnDIrOPoUPmu4jVhuVh332L0Ex
1Oxzo4Q/4jws5hp5/wAoNgzil9/yIX7t/PLumGOgZCUye0rdFkncOBdz8RsB
lBz+exF4bRVJpu7F28ypgpJ7wdWrf4qQVPL0ziNKq6AUoy/+sJINyVzWv9Dy
dico3fr3/blIBZL1toPS1hug9KChrPXiMSSnznZqjF8HlN7YEsct65A8+4Nh
5ZwAUPokxPUvzxPJny3S5C7dA0pjg5+3swkj+Z4lkaD0m6DM5uml3u6LFFJW
8H97pkFZSBdvqiWDFKb8i/aOVYCy4uKmTVIHUiQiu9v/nQNlclSK9wEVpPjN
66IbsQ6U99scvlTdi5RUU6JFBBtB2Y1fJVE8Ail5K3+leL8FZf++vzmhOkip
hPtjVPQgKEferSv9+gUpjem9xMUZgnLKqehXxASkLB7KgzjsQPm+lt27AmOk
bD14uN52FpSfzot95fiJlAONj+ZdooFyY+3on9OpSDk7aoWu+gGUP1wp3ewE
pPyylEKo3A3KI1YXeHX+IOX+vBvJhvWgPMtDlE3OQcozB0+/lNMEFaZPXLoL
NkiFqa7g9ZAUqPBlfwKHf0iF+43LmcvbQEXuxD372gdIRdBrcYa9FlT01E+7
Su1DKkL3dU67/wIV7K+BXzgTUuFzE2Za7AOVPdUbESPlSIWjULDw8X5QORbW
mkJxQcrLnrPJrD2gco6SfL+QEymPFny2G3wCKuFcLs+2VyPlNsfd6beVQCXp
o3Kzz0mkXBRJKeM5Cyp3M2d6uvmRcpSiSLD5JqiUH6sdw9UjZUfzKCNeZVCp
V4laSPNByqofqvuk5kDl3bQd27IEUpr9RV9HXKDyX6WYsFMrUqqOsrj9lhtU
pkNGlV8GIKXAMnZD635Q2SCWGskqICXdM6FdY3GgupMziBbxHil+75o+ebQX
VKW6wWHsMlJM+Y9LjNsHVM0P914oHkAKI4Y6p66tgOpuxbtx3DFI4cqdQhnx
baDqMumZeQ6PFCRmyr/XPATVSxfWa/E3kTzkpAgOvwLVa5Yt7RmWSK5Tbnxw
+h2oZrPfHFj5jeT2jdQrluBAtS5VabWBhmQKFrmO/LgDqm+dZrjkF5B0xk6e
qn1BoDooVysZnYekrpw1PvFtAVRXym3NrdeRhMnyL+6GBVAzbg8M661Awnvk
/9rI2YOa9eiJk1eLkOBP4vHs9wBqzmt7dhndRQKBdy4YcE6AWpi2ulhmAuLZ
UOvpxBxBrfHml2eH3RBLfNb2n8FSoG7jSB4fE8Jm/pt6NrnbGtRd/PS6b+3A
lp5PHMt6egDUfRKkq2lM2EbU+cowfTyoJ71YjiqcAvbrendzfURAvUf2kYz3
G+CPmqz5QGEFDZdfAvvng0Dm4NABMzNP0PDZ2jIt8AHZz/lFvoqXQeOy2JT8
wRMgVyTEPKexCRq5Nm/+PLcDBeHmyrLMW6Dx1K3ikycFFFrMBWrQVdBoCr33
UtwUFP3Vdl3fZgYaY+UX4y8x3o0XYaY2tddAY7HV3VdLBpQdL+5plmoBTY7h
/Q7/CYHyXz4F+2eioKkuoK2EMYEqD5mdqHsHNE01JXbMLIFqWph27cIMaO6i
cMzmToGaUNJJjvLPoHkmcLiBpR/UmaOsHhMY+5eT3j141gXqZ/m7WF+EguaN
wrrEk68ZuN/hvAf3gGYuKjwvXAca+jf2VsXsBM2nA2lOLU9BI8FgRsWU4b9p
LgIuFIHGYObzABUR0OzlOquqdhc0Fe/sM+VNAM0fSi47B9JA85Siz0iWKmgu
WVgtJDC+3+N5s9VJA61tDvghsyug+YFqLNuRB1pi5+Qbp4JAc628eXnpMGip
x/EU3fEBLRnDLPaHPKBlmrt2w+4EaBm3KCYKrYPWrtrxwC1HhtyzY357D2gd
/vjp8BM70DrYSI6UpIPWmd9NZFcKaDny8QVeUwCtcLbHGgJmoLUPx3X6Vzdo
3XjX7szcBVoU36ZvVuGglZv+PX72OGjpNOqPDj8ArafHNmqH50CLXxY/9uwe
aDWpi068jwbN3/HfSnY0gdbHOX1xxMBdz5LAzWkOWt9f7LZ+XAyacYnvBK2O
gdZCtPtFRj+nuUvn6jm7ONBmt71SnNQFmuwzvfRXRqAtIpI1cPk4aNQMyZ7Z
KwjaKt+qtp+ZAw23Db5P3IdBm1DUbXIkGjS2nbwVvhwN2nS/idO2oqCerzBU
qpYE2k5mrLfNS0CdsMvebfI7aHuxSbdrmYNa83zOSYFp0L6Wvk+d6ziotir7
Xu7mB+2cYz6Oq3OgavFjT4TUM9AuU4uJm4wGlbLkor4bD0G7q65uvL0YlIPx
0oGrSqD9LeqTWK05KPX43dPemAftv7tn6EVdoKSm4Wi2xwV0+L8pFsXOgUJ9
RQYPxw3QUSiy6L8QDQpMA7dk942CjoGfI6eHCKOP0Hjo2CgFOgdZEz1pZiBr
I63e5IGBTqbqohpbNIidwyXHnWkGnaJZ3kMLIiCSF+pY+SIVdGrr1GO/F4FQ
R0Si6ucA0BnafeRX0zvg5yxmya95Aroyvi2FESLA4rXaGRv0AnQLajNVNoob
GCPPZd6QWdCtiqxwmDZHLFcD1AsftoNuy67OmC9diOPR271BW3yg++sr088X
c4hnNvX2p1dfQE84At9jIYNEc/2CF3lbQc/xwZ2UNQ+kGNIq7UUvB73jF5un
7NKQ0p5Hl77StUHP03aSmoeQstz5U//NMPYvLBn9o4shlcqegaa5LtALf3tk
bzYFqQYzp9facoFe7N2okj++SM3IwnW/iAfoZdDeH0lrQ+r5QicXdLtB757E
UvWvBaSxd/cmMZcb9B7OSPOZySGNla4rPCdWQa8643TTSDDSMl5Q7mq9AHr1
3jel8AVIqxu7VMYWDHotWHVg7HukfUzBSGLXMuh9GmdV01FHOt5cEcxPwkDv
v5fqEREOSOfn60y9tiHQ+3Fzz2BvJNJ1CSGIGLWB3vTJILxqOdJt3x41Ggyg
t2iccz1kEOmJFt2PvXUZ9Da4m352cSA9K7HFK0wHAMc2PAHy+kjPv6Uzz7oI
cNxVvLcDjiK9rALRKotngBOKN5xrTUB69flFzTc6ASd15PBuiWqk97XWWMyD
HXBKuMgHZ0aR3uqAp7BbJOC02Is2G3kQTmClrWN9EHAGA92OQqYIp8o3dFyF
Yd+sbPGphzvCEUSE9Q0Z+uRIqR11KQhHZh7t5voPcLscSCd31iOczbuSBwXc
gNuv4fnq+G+EszvfHSERCDjnzRsilWIIZztT0XLaGHAnPlb5bqMgnLVFdaAw
Ix6vh0Ptzr4IBy6Wk+JOgPO/xKJQloNwBrTKk37OgAvZoxbK1IZw8lvRNsXp
gItUtPu0fwHhuGMU9JbEABe/HKhTKIf05r5w3jvUCrjkjuzY1d1I7xNrbYY3
I97b9xpHbIOR3jOm+oHruwGXd37cNLcA6SX2FU9sTwFcMZ0ndf490juRJNit
Ug64p1L4ado60sNr5OQMNwGu5q8LLUsN6TFXTj4i2QEOvY64N30A6aZ778cX
SQHuvU/XvtQypFMQHeSSXga4flh49HMQ6ci2/ajwPw24YWFJdlMOpJ26v3nv
SjbgZl55PB8+irTcSrWvLDL4Wk5O4jdIQJqomi7nxPC3darSK6YaaYqEjyTv
nAd9Xh5maW0epF76LZFj8y3oi4yqBl0xRWrTjYY9HyRBX6batrvHHamprlyJ
q7kP+jpHsyIv1iOVeLGmc3l2oG/72OBXyzmkyCq1U2FfH+g7aHmXAkLyW8Do
BudA/2hxvu8LPiS36Djno8wB+ucKBFYeP0HSeSxKJ5IVQD85c44rcw4J3So4
VvJCBPQ/RT7R9Q5q+FijEVAX0wT6/239mv/Rgn2yTjTWE3sP+j/DZGuOi2J/
Kh+I95K0QH/5wg3igRpgriuvnlJWAQNxn7P7LVZAYJTZ1Z1RDw2OOGhd4AsF
RcFHBziLIsDgVM9Js4ROUCL8+qcTwAwGZ+1zmNilQfnQ6dLyDiUwCN/FFbdS
D6oxPyhPj90Dg9g2sm0AD6ilGxW+MY4Cg5vUS/x/joH6vdDdX/v7wSAPm8z6
zgSad+8/8Tt0CAyKXykcO2IPWqk/kz0usYNBhamzYl8eaEf8UNe27gKDZnx7
aScJdGlTZt9FY8Cgo4LZj5YCejzPzLetW4BBr66JIRoFvcCGxMFGhv4P9aL6
qijAGTXj7K0awWD64XCUbi/gboYKf1cNBIMlJTGrEiXA/Yg9MX05Ggw28+y5
lQJA37BtvOS/F4DfJhP7/u5r0I9Qrve4xgV43uyGW+JCoN8avcumThjwYmLL
TqmnwICz065l7ijg5dJ1ZXZWgwHl53jZpDLg1QXdR+M4wOBSfe4Pw/eAx928
W8jiAAZl2Nlaqj3gTXd+9g4tBIMBh4ZOsjHgSdd4dJf+gcHW/OW70b8Bv4uT
uuBHB7w8h1j5IT7A778aVvM7E/DmV6K1eSQAf5ilKuzUBOD3OVCtjusB/mT4
NHHYFPAnQv23tNgA77OhzOGcwJATL9L+PAR8wMQSt54l4P0CKird/gN86OdW
AfZZwPsum28vPgH46OZM0aECwHufSXMvYQd84pPT0k8dAX/8E+FxIAJ82h1T
xVgGD3u1Rr0zVwGfk8ClfrieEU9AKudOAuALgr7o6vsDXqEsod14HvClbmWG
nAweWAftfGKnAF9pf9n0P0bev20+vGjCiP+lxR54lggGz2XvgZAK4F9ryNHi
MTCIJ8fFd8oCvlNkdvfROTBw8FuYnzgP+F7Wpn34h2Ag86xmXcMT8EN/Ux13
OIH+qMBE3RFdwP9+a+hWhUDf2VFmyC0L8PPPOU5fY+ST1/HK1e+JgF/L7zvn
qgq4hkdsTx1MwZAr7OIl7iTACcQlnQ5tBUNBL5sro0TQqyJkG3woBEPJQ5Ix
zxdAb/+VDzXBVWCoqfcqxc0FdDnOKCdFxYGhgXRSpgkP6KjnVrEfCAZDsx3H
7vI0gTbl1UW3pAwwtBljLq5TA0238CTOIWkw9MqgNvIx+lFrg7lbtCgw9I8W
aflZAiq4xy8XeMbAMMT3V+fLI6AsOIo26hrBMMEmvt/jNaM/Dv7t1PEcDIs3
3s3UJ4Nkv9DOA4n8YDhx0kHGRwtb69VctuyPBSNPnPulVjfGvBKzuV9NHozO
LdmpmJ9Eikeu7bghUAxGF14Yvn/qjpRy+ndm0p+AUSyVXTnbE6nyCia9quQH
o4eO+d3nziLN2tIP8cd9wKhc+trFMV+k9flm+Q+ldjCqGj2v5OSHtKdPOP0s
cQWjNz6ki+QApMc6RBwb0gSjsfARRdEQhJsfVerdJQFGU5S2d4mhSN/dUSOD
NRKMFrY/CWYOQ/q9DYWkHS5AYE0N7/x9BRkUzPyJfsoDBC5HjwvHIxGeIyLi
VtoFIAhK75H/FIXwbuka/xRjgKBQKBPUEIMMeX+o7+pSBIKGD4c8Pg4ZHv27
6wkvCxD09aY7iuORYbGc5sr9O0AwWfwUJJOADP8c+6lQuQQEYt0rudREZKST
Xc28owwI1uEFHZxJyOg0Wq+/OwOEvZTEwLAbyOhePY13jyoQnLYHyM7dREbv
o2wV1A4B4XiXy1uPFGS0zsy8e6UNCJ6p5IAvaYigoJ7gO7wOBF9HTdm9txCB
9NdWJJURT7C0QHtLOiIctf5DJIwDIXxkNcAsExECtByW6uWAEPtwVOZJFiJE
Jz0PzdkEwg3v9nblbES4cTqBzmsDhAy9p+ezchAhrTo9d9gRCHcXb8vw3mWs
fecW/+UB4WHdlbboXERIusUxOsEFhPJwT/+VPESIkkv80dILhGqKvfTZ+4jg
L5D6+mUlEOq3E1q/FyCCi3f4/XZGfG+6ZP0dHyICpr2j2YCh/y51m9S7QkSQ
dqauueCB8OnQn1ZSETJaXM78GLsHCP9JffZ7XoKM2nc07rk2D4SxkXoprVJk
lJ7VE8AXB4Sphw9a8sqQ0dEnxqe8GfwteF/3EylHRvIHysi8T4Gwrhcoee0J
MvyaSiwpTAFj1sXDLUwVyDA9+ODEajMYc9VRfAOfIUNr/syvPw+CsSRF8M2x
aoS/e2fYSMEajBU518711iA8seLZjV4yGGu8+y5hXYsMvjXYiuy6BcamhyrO
GbxEBjv5oRBugrGT917xbY0Ipyui2M2498auAzY6+T+RXh5PY5K8EBh7WZEp
wI30eJj/TF0+AcaXFA3PBTsi7YrhPf4LQWCcMyT+ZnwGqQW+bZBZ/AvGD6wF
hq4KIVUBYnffIh8Ylz3nmpU3RcqFDuHXnziDcX3KppRTDFJ4+eV7bt9hMB62
GfV/K43EYbRf06kBjMdrhuLcSUhE/InyEx8TMJ5V6b3L4okEJvXW76hcAxMW
lpZ200rE+Tu1tWlGGUwU6x7JPtqFvVmaFFDOrQITD43znYkXQVLu0fm1d25g
ci7TZ5QxX8oct6rYvF8HJsEcp5Zfvwa5zre8xq4/wCRu1FFhgw8UV9tTb59M
A5OSLPOLZwpBQ+ov+/Hc92DyjNPwxvZO0Ez/XBqQeAxMXgTpFDyYA+0dbP1y
oZ5g0rlPrvurJegOxrXdsD4JJn92sKvYfQL9RPe/C6ruYLJ0YdNschUM1Jpi
DZMawGTzx/LeWDkwQFrP1ZzzwJS3cSK0wQfw34LFMcohMBXTHU1xSQFDDxao
Hj0LpnJ3hgqXa8BwfJqj2mEcTHEX3/XosYLREE0f690Fpia/WsY71YCw6/Q+
0t5sMCUdbNj0tANClUPO4BsmMLVprhViCwBjsalL29/dANP9uAr13CwwDuLa
dlYZganLvUeYOQLjzjQx24O3wPTkzoID/T/BRMrbWjnfD0x9Lt3xCuQGk1NB
rC20C2AaMJF+hR8HJoXZcZMb62Aa2qrWx8ng9du2Zo/aSjCNLnihw0QCUz47
UexGEpgmRtpGL3eAqdnR0cbwdjBNO/ZtaOYAmB7X3OxNDgDTHAt//Z9fwPRy
UfMu/ggwLZBki/96CkzT3+4YdGfoP/qXPvzpD5gWxRhV2yqD6bPP6oR3QQz5
Cdd13B1MXzx7kfR6C0xrnpwvXWTgaU62/fEyDkyfC7IsOTHi7zg7bF7JB6bl
Kxdi77iCac9u/9RHt8E013Udb/4STIc02CbzFcD02m57+b8Mve/bMohZJWB6
rra1SZkKppM/1DNTDMDUtszW82EYmM41vZiJZ/ynrOkaLpgApqu5drQIKiPP
phIHJnjBjCVs+E5wF5igEcVrE3FgtsPFf8HXAUyuqr+S6z0PZgIm7Ls8voEJ
WaaOz5cGZhIiGfePeYLxaufl2+yiYCa/oL7iwLhHpbApFuYKZrjHdoU0xju0
/up5cudDMDNJHN60uAaE7IlruyufghnR6/xBQyEgGCrSrj3dA2Z7lTNZlZTB
yEHMYG7XYzBzYtVwliwHw68s85oZ0WB2fPjlU0EjMDzuXCLqEgBmvtkjx1gY
/dOBhk/+a/pgFnzxfNXKBzBo5dSUsfoPzK4c4uCedQYDvIGOTBDD300Bjbph
b0afX1Vy//cHMHscFyBSnwQ69flzyTK3wey5O8eZalHQdhK96KBYCmYN5MzX
Zbmg+Tvv1lCGH5h1bb7yz3kKaqu2yiaqCMz+BHJ0hfSCQmuNpqTdEJgt7but
7H8E5LViE16OM+LZ1NMMPf0TZMUShM4IApjv/G2v4bgMYqEa/g8G2sBc2/V2
DEEC2PvPk6EiEMx97LQs5o8jvv6NN5zib8A8oPc9k8BOJJRtavzA+wWYh7mc
b9KrQ2JO/TVhxv/APMnzBe2sEJJtnUp5XMIK5k+ibOzG25CqUn3FmPM7MK/d
/od/WyBSG/d+FBmEgXnjzeQeFQWk8ZBbO/tGOph/vDNwyC0U6eyUnuhoPgzm
CzWex77qIX3LPW/Lav6A+QbGLb/+HzJg2rhV4XUfLNjfPB6TTEAG9c8GCl2+
g4XIx2VPxzFkqOHQrDepDRayTtkaF5KRYd8nx9O+EWChOmw5lW6JjMKveGzP
xsDCeDrGt4dRH1/ePHnVjxUsiAEa+nNUZLw39f7O4d1gYb36bpFvDhkPMwkR
3y2Dxb4Iv+e695CJR7HJA41ysHDhFL5otxuZjJ90jygeAwu3pFoznxVkeoLz
o76qJlj4CB/euPYQmfaey598VQ8WYQoFEe1MyOz+PE/ok0ywuFpMJ/8qQ2ab
nXxxj9fAIkl3ioPDGZnvGz7+6j4vWKRX32hT3obM7wlGUr9/A4t7FgYJ5Epk
/n2Xurm5MlgUNvftPuGKLGTPkYO2SYDFE5tLPBE8yGK/F1N5phtY1HyQeX/v
BbIIVx3klzMBi8ZDTSn1nsjifsZtmSRhsGj/6n7gP2Fk8arkyLS4FFh8PLVD
ZK0JWbzfX9BAZfA3+LtsQOIcshiMt/nrzQEW3/33ZptIIYsv5FT8ymew+P1v
8cihdmTxKUxdayAJLBbCb8sGBSGLFgMlWowTWGxwmI/cUkQW5ae2zz5OA0v2
xOH8Z++RRZJQt5xDPVjyCEaf+hiGLE7RBoTv3AZLkSw11VkNZIFn3oh4UAeW
snIdk7x9yHx1T8SkSB9YqhaeK9WJRuY1ZhLHhNbAUk9H8KwtDpmf+fgrNF8C
LI0rn+t5f0Xmkqrna+5fB0uimfNcwjVkhnY93uipBEvrxs3KYmNkduTATNq5
T2C5j34/qPUHMp1z/u6kJgWWzt00458pyDT8Qho5ngyW3l+uv1KcQiaRnmPW
BaVgGeCGCyfdRsb/wgTZVWLBMnTiE9GVhow9VHkC3ArA8vqy1Ju7jH5Ip2du
5OM5sEw/2Kd1OAcZXSNP86mMgOXdyuRUiUxkOKK+Ydw5D5aP/TmOpychfMg2
SeK0A1i+n5pZS2L0s6dwzmMWk2A5sKvkxO5ApJfiez47QxksR0pOtu/wRbqB
x7cMrs6A5ZzHQHqMO9Jc1RkRdfkGmOBoM+7yPqSUK+h688gcYFLEsExzW6Tw
PGcku6wZMKVcwuYqHcm1rbM+/6wLmOGR0s4gSyRefe/3UV0VwBz60z3OaiJW
/OoUb1koYLe7Tt85ygai5rFHfhmkAXZfW4lNcgsk7Q/Tfvl/Aazk2levgVWQ
PTq49LKmALAX1vuND/4FxWclGZWfegH78tq8x/YLaEbFfPg3JAXYD4VlU64+
0Pa8/Oz+xARg0xFPc9s/MuZrNwXPA58A28RUzlLbABfoHdqydgCA9z9OtruD
gB/jmf+ZBQBC3KcIG/1g+Izf8x1TBoCYWZP34U9gFHpN27ZdDUAuK/SjxHsg
bGww9//sBVBqH2S/2AXGVdEbcvl5AGorBOP+DjBxL7Bcnl8GwB2avZfeAqaV
gya2PtcADGPtPi6+Zrz7SVKt7dIAJtWlHAcaweyXYO2gqxyAxc/tJs/qwTzQ
EoTVfwOQhN3PCLwE87XRrnrXYwA0SnOuXx1YhPRHFFR9ArAJkOt5XwMWs//C
vB3IAPs+DpkmPQPLNpUDtoQSAIc6dp7sE4DJvb8dnH0KwDlPZ7RIADB/gvOE
fB3A0TjH6spGwF6SS4q82ABOnItMaPRl8DS8r1PgDoC7Q+nRLlkAqfXpclte
AC+Lz/qDXQBGDVYT45wAZ5WZOH6FAex+TBIregvgz60+uKDFsPum80MPI77A
+f2PmYYAfNYbT7jsALg4GBa1MwHggt33SvkagLDGwkMSJgz5/PtGfTxARNEH
TZVxgCv446Ym9wGu3ljdMmDk4XLjD899zwDiLyj1AI1h5+jfm+PbAa4ftSvc
vQjgu2MmTdkYIJkafMmpgIGjhfhKOwfgltb9Pe77AfamGEux1QLcFuxUPM/C
KEx+wg+iSQA5q4vL4U8BFN15xS0CAHJHZTsSjwNwBNqU4fwACtqt793mBazD
qn6z0gug6Mn58w/qAYuYKc4SvQVQmnHHquIMYHp/icMxUwBPLrdKNjDueb+T
PY2fFaDy1N+Zjg6wDDYPEpBj5LPGVqK5PwQs+crUtzo3AJDkWe/ZfrDQTNLk
K1wFeM2SiW3Ggnm5js8+1+8ArRNNQlxGYK7+UkK81xegu0b4pVIamHELzKXF
Ms5Tzz3sJo4MpufFN10NBwH6Yk6ftJgDk54EzVxGHwPfDrziPmQPxhEG32tr
PgP8mT15OIEbDFN/flXuZMQ315+kl/4C8G9P7XK53Ayw1FDDlu8FBms3GwQv
MPKwmcRV+rIN9O1KWco4tYDIo1GxPhMN2iHvDxr9uwNEAf4v79cNQPOOv3VU
aRwQhVc4HnCOgnrN/Z5upm1AlG51tlUAUB48H/LztDAQtU8y3zmwDpJPFdiL
ohOBuPuOvUVdQMNSFe6RmAQFiPYDLK3OVYgtit3sw511IB4UqrJfXUI7SzSZ
G//zBOKRRImTZheR6KKGU8c9ASCeDRlLeHkZKa3GxrOdtQGif3WG0OEGpKon
ems0RxeIQXPWdzaYkPpxYwGViUYghp8uf2oRibTLHtG3H2oC4k3H4L76WKS/
JDW6qswLxLQ0TdejbchgLiVK3CsciJnd/01u7UD4ifELnecdgJhnRdrEGPN2
m0ij9ZEJID6IXIz99g4Ryt323yUoA7G4voj/Cg8yTgr+6nbQG4gVRjuV0E1k
avqvWPJVGhCr/RrKj39AZhxj8pkrYkCsK/M3ZhZAZh3Z6szajP1mpb5dxFvI
wjJygnJeBIitx+N7Rz4jiymKpsnFHUDsyDE/GimGLJPndAuyGfh7BfP8mrIQ
9tqWP5V7Hoj9e/avnRhCoGb7p/qRKBC/XOO4yiqFwGtnRYL9fiAOt9Ty5B9B
ULiXZC2nAMQfLN6Z5LsIhtmpVytLgDhhKSP//RsiConmex40AeL0xfePouUQ
kXwh7hjlPhBnq6IMlU4g4llh78Avr4C4OGtY/zofEVO/C9q/XQXiqtY4/eQY
Ilb2ZL0begLETc+sj+wqiPh+KJDKeMdJLAW2Lg88EPHXX/9zyoJA4vi29YNa
hIir2xu/VSsBiUuy4uyPCUTaJruk7V0FJN5DJ//FaCASr/a2R9d6gSSYKhqp
4o1IAloOr+N5gSTa9ZarpRSR+CTKZvQPAklqR+gt92lE4lwiWyb3A0mOpiu7
TQcR1+trrw35A0kpYqSo0BcRfwfKm/y6CyS1V2n6Vk8R8ZPkv+TeBSBprdBe
/JpDxNrnmjUxpUDC4VeocXhEvL1byLx3D5AMfR91qwUi4vmRYEuXW0AyKT3q
2FaNiNbh8dosdkCyGOcb9VxGRAndUfkDPkAiKTb7bDdG8GPjahdHFpBoxwIX
iy8iKF34wsV6E0g22Wrh1nUIzimWr8YeApLd5yHOiTUEWrdV28Y/A2m/wPWU
BHOEve1I570zCCSX+LkHbxuQZUpWIdvIEpCOhfm9F6tAFgtPVNxVeoDk5vt3
1b0AWezR+ZT7exhI3odm9rAkILPpzYqoUhsgXVL+/c/0ADLu831ouHIWSOHi
3gpxVsiY2UZ5TTUMSFHck7s/myKC0kRNaMoYkBLmx/P8ZZGhs/WniV0Mf1mN
P2yKJxEuKn4lkrUQSHerTgYsf0F6EdFn3yzyAel+0fd71G6ks8SXcUTNCkgl
N0bmRyqRRrPt0+VUAyDVHfl6RzwcKXA+6iAYegJpYKVvJl4IawqcKihu+QCk
/6YPifdxYAuzEvSY53VAGhn+TFFaAdYOIV42RVMgTbT2ZqKvIGgYo+Br/wVI
K7c+EP8Vg8KnJxdEjzYAaSPe3oeWA8pSz/efPCUDZObQ7vS0JFA9Fvve2ZAZ
yNvd3v3WCwDNz/QvS7u5gSyOe5vmaQn65md/+U9mAVla2bq+GgcGVsc6HAjn
gCwv1jbBpgR4O87qvuR6IKtttVrkbgcj20se9XseANn4XfPPvl4w3Tl9Ln5v
EpDNG8n8yox6P5OX15XYAWSobDI7XwtmHdK8eeGyQKZno5u8d8HibAKzjU85
kHffwOqOJIOlEW9YVQtD3z6yfuxRNFguRZMy70QC2fH0KxOr0wB6deW+Ff1A
Pvz0jbjaH4DEGprovWwgH1/pXNnhDzAmkzlifgbIp4i9/b+XgWj0MeIArQfI
p+O/1LwLBWJ0nRrH3b9APvNhLPMxMxDfveLKmx0Hsr/4VPDNGCDxv+aMx20B
Och1wdGfC0j2tcelLnsAOaR43Xg/45wmxDXcJggA+fIcm5ihMJAaZGlpwgz+
oky5/okwzvUf7+tc5seAHBsp2PePwbvYkWIepwwgX3sr+Xwgn8HLL4PVNRqQ
bwooZrxQA7LL2p5dgXuAnOaseSGnFMiBSUVLL4WBnHnf4NBlHJDjM8KPNQ8D
OWfSjHCsmvF9Z0EPvziQ8/TJokQzIOdORibTGHw9CLFZVkBALlCXPJX7BcjF
Tfv62CgMvZadrZ4MPOU7nKt/tAP5dsOtq+lNQK7YdyK91Q7IicKJa1OFQK7O
8goq+gjk4PYzHzgigFw36u+QcAjIx77uNZ9hA3KDRoiRN8Mu0XGmb/E6kJv9
I0VsXRnnBMudvdsN5Na6+CWdn0Caz3I6V8743smS/JnPC0iv/UsMT18B8nub
21WzM0C60VMvePADkHtT8m71BADp4NtD2GA0kPsHiwMr/wFJ5GSn067DQB7x
qjUMZgFibEtgYeRjIP+oaBR2igWicYXkG+4aIE+sti2acTPynRB8/hYj3rmE
/spNYQBt53dheWlAXvo4nPYtC7BbHPvn7xoDeU1iPKBRBizfzM5q/x0FCmvJ
P3y0Glhwh1yyEzsGlG3zTEKnysBcISncUvQSULjNti1YMeZ4Pc3AqDN4oAh1
iFbuMAcTgx3vo/KGgaL8m2Bwcw/gv+nePhgRCxQNA0zQrxcMaq0Vy1JXgKJz
iTa/3xH0r5u3iFi+AAqBy+GZyAnQU2K5lnykBSh0zSD9nCBQ0TZoBekFoHh5
V+GKcrB++jnnzZCfQDl7r81toK3hT3vToShza6D49wyl71hALL4m56Sdx4By
yZx59cwuJDjvdp65OxMoidx2zbhVpJSt+JDv0RBQboLropsKUjXpFDJUXgJK
WkCgato+pN4jsV8xjgSUnC/Z15ZKkM5cw6L5r0GglJWOH3jhhPCnRV1Dwhj6
T4fXYqaikWHm5oju62igVAvz1Eo/QUbNnsWv6YVAqQ8zlL7CiUw4/KSaa/WB
0vSUvucpHpnKeN2qazsElJYfLhGjx5GZbo7iq8hkoHTbRvyk1CAL83PNI+QK
oPRE3BILHEOWhJCiD+sFQOmrKrIp5EOYxo3zP/fwAGVYuuvxdg8El76dzrSY
AcrY3pER0xQE48Uh0ceKgDJ+dVHQux4R7edkH4cwA+XvH8kLXSKIJHj1fsHc
A6AsKugUb5EQ6Uz6l7E3/wFlxYH4Re8sIjU9C7TVzwfKRsJBHtcsRBZo/Ari
D4DKXO8JKS2IfKT4ZxHKBSr73CX/5jlEzj/QaEH9AtQdKkkFizKI/L2M67jk
Z6DyOOf1qdggiszdnnthF4AqkFS1/VAgohwQvff+RwpQRZrazOJyESWaw7/l
cT1QJZaGztR2Ikq5y4e7iplAldX4c2/yH6L0bG8roHsCVfEY80cpJUSZY53p
XssAqmqqMJutPaJyYWe7R5iBqtmqZnQ5FFFlnjGVjDoDVXfNzPNxEaJqOSzN
8SUAFa9rlzXci6h4ZfPIfjpQjd1c3wkwIaqR+KH+29+Bap4RsEXWQlR9PZ+p
HjxQoSMOF+CIqGqnLR+oDwOVspXt9iAKUcVe63Y1M/iwNii/9bkcUVnJ5Ich
TEC19Whs2zaIKL8mpafTGfj2ZveumnAgSks9S8KPNKAe7B7X8tJHlHtvemu4
YoDqzLp2NPsoopzfIfxCcxaoR415bnYmIAqkfdfmWQLqCR/5po1qROH0W+gU
zAeqey5+UWcUkd+W3/5yxA2oXr101eM8iBzrVC38tg6o5zhdnJJNEdkyql7O
DQH1gm/Eq/lkRMq5K/c+6DVQLx12vfmRkV/rvtkpS0eghtOJbk93I+JcYnku
HwWosXLM289xIKJR1fX9ywx717iGv9iOIfi4/8Wz9wDUpGX0WKsRwWn0gyf+
LFDTu68cmAxFmFh33colF6BmvTiu2u6ELHWLZNV4U4F6txBbLTJi9Ke//oSJ
aQH14eWt3FOzyMwqtISn3B+o1TqXf4+4I8K2C89fqzD4rZM4Wo8oyPDX6kf9
godAreewTL4nj/BN748n+zD8v/lvk3D4C9L3jLn1KL0bqJ+uh0X270Uay+ON
n9Z8gbowFSrebY441Q+9I23bAdR//S5T5eINqwPyHlJqDPzrr80aEpcaPlHf
xKyoxQGNLXvtlM1TYJn46Jf0RQ5oQrtCnrSogMy/D64tRjigiRGcox6wgYLq
reOdv8eAJqVo6hA1AkrdDmZano5AU1xdWSfmgIYA8+6LVxjjtkHJRatX/KCv
LjQ69CIdaIR0J4nsP2DgydfuunkBaGaRxtMhnYC//wENPNAGGtnpX6pxDBB2
nM1yqMsF2v7tF74+Wwez2yP7fBx+Ac1h8dDTlAHGfPfO4OCgDtCcRwjRftVg
8cqA+nAjHmgnapY1dP0Ae+P6SanHD2j+nkGBJT+BWK/ShPDuQAsq+rop7QAk
g/XyFSkWoIVMWMXceAOkgv7p01gl0KK8xDICCoB8QcYzb2MVaLElEbK/hBh1
ho7Ls3IF2rXJiSKnKKAYrAQ7dHgALc27rtbyBFAGo37/G+8DWmapIvHJR6Aq
qz8NujkJtJypa28ViUA9/dcwceE80PK0FvbdegLUosZ2AmUaaA/OHB7ilAPq
SMKphKbrQCsue+MWcpPBO6GC9Y8e0Mr+aP+e2mJM7LU7XAaZgFahkx5w7CzQ
3LeivjdnAa367Ob6h69Ai9mYO0WpAFrdY4+rFDug5RZNXU1g6NfPvN9Z/Qpo
z5a6SxT5gNasZ5yurgU09K35qBwDb6tvnkx2DkMeeWnksgG0jqfbC3m4GWuf
ywbfe4DWPeuve+US0Bq3381/NgK0Xtzg8zkGrkr81ZB1Rr76/clwypnh789Z
XXdBoH2peNTW95bBm6nnjvFHQBueF9prYwI0D+mDq9+XgfbDIHTgZREDz53p
wWMMXBPnf5zQFQOa4OvnBP8fQJuutJ3MiwXqcM721KVCoM0uVJ8XZNz7Qr0d
8l+uAm3JUGYtxh2oHklFa6kMf6uBsVH/PgFVvvXOgNh9oG1W/eX2pgDl09RJ
UvAIWLEsOab9VwmUaD4CZL8CK64L6g+aUoDcVXKDkpULVrzPU3QMWYDsbS8h
wscOVoLLq9WFfkBm2fdkbUEWrKSCO1oT7YEk+82YfnwUrORq8Xs2ERAfPsA6
9GLBSmklp9+PMSergV9tXwNYaYecmXDgAZAKP3wnPxOsLEP5uGQ7wSzrKNdB
6ziwIr0MTk0xB9MjNHevystgRVsfkWJ7BCZi1OuF4VZgtSesQmsiAYwuzOwI
NUoBq+PhB+ye0UFvnNBrY1UIVpGRmSm01yCY2mi9be93sIoJeffC/QdwXS+v
dX1fB1YJ51nGYjmwrY/W/pt/FsAqxe2MUSu9YfrjJZTPRgWr+xTikFUnkhRX
NDlBZOBrYv+tRO9B+ipaPa4cDHtvNuVsPReQQVSL31ufs2DVvnQwKF4I4f9j
F7mStxOsPvxsaGt3QIQI0WHm3wz8I61pZ6wHkXnMsdq2/H6w+tHQnn56DVk8
/5Uv558FVhPPNxsSpJDlaAQ10E0QrGaLTvO/PYrg5n/PS4Rygc4cb1FtM4pI
ufjNf5WGQGeP8P/mzYrI4taNb7TUgb79YhHnNSVEvv6Bm3PkDdD5vQScO9wR
xbPBejYfAV34hFXU71hE6ZoW265pCXRx59AyLkZ905PEuZCfAF3e5ufWrklE
/S6wbukuDnRlspSaDxei4cvk/Fq8gK5utndvohaiXRmPqPIdArq2QUxIqS2i
tT5J9F9bBDpO80V+51lkxTm7OTcyC3RDxb+dUzeQFSXrz/XEZ0A3kVJe4n6C
rEKyOuMNNoFuIeQiq/UBWZWMeuVb2gCdyH2TvnsOWX1y2yJP+AKdyvbG74wg
sloVVHcRWgU6fX016zoe0cXG5n9ImwN996Juc9lBRMd1D4h0lALdfvrk1Lsg
RKd0vNENqgX6gR9ZwtMZiL73o9jfiH1Ad/yvG9tZgxjyUe2VcKAf/szmqT2A
6E6T7+hu/wH9eJdJsu0qoh9YtpIWsgP6yZazdWclEd2G5cgVQWGge9bnf08y
R3QT7veadbZA96ke4C4/gugKYoMZnweB7vuYx7DrMqKzaxj88poBekAh+eif
e8hqlMYTHB4F9OB7wXE8CFnVnhcVYTkI9NCMsqc6w8gqofZ8x5sDQL9yY3Rw
DzOyclBoOtxxEujRAYoH69uQldT0up3nT6DHObp90LmJaF+1lmpju4CeaF6w
+64jot2eev9rrQjoN+XG2njkEM3ebN2KZwPoaezK5LBxRGPWMHFb3wJ6xsSp
+ukniFralpbRmQX0e09/Vr0DRFk4bnYpRQPo+emqOAtORLkZ8S9uXQ/ohSEe
paXvEUW1oCyjksHHY9J4fuJxRLba5XI2uQ/o9T2TybuuIKLd/Jemi4z8N9Vo
cr+gI3gz2fR15zjQW3K84zT5EBi/El2x2Qn0rpNT4TtykaXS7zjcgT1A/2/x
j087QiYGcywBTox8b4jO0elMSMsz/35Z1y+wZlrXb37ehtTDQ9jSnBTBmm34
PKZ6E6ncOHJ3Pl0KrLmLFoy2ySG5OzyLNKl5sJYyWVJsAcTCy46+Ud3B2sxl
ZYtyBRRHRMw5j/aDNQamIZV0UBnbzXMe6wNrslLIkhIfqH9nxZfULoO1zdTa
NGsu6L4Xr2ERtQdr57CNwSYEhiWpPZPZu8D66AlLB/04IPDtfdppeQGsT9Au
f7hvD8Z+HO4vimbB2otnqy1iGMwUmNqr9YPB+mIuczWRifG+ZTvEVI2AdVj/
218UZ4DmOj/Ho5/BOpI/TcyqEojuJ2Urv3uCdUKUSoidJ5Du5CxFPJED66QX
M4/2MuZI3EeF7mtcYJ2yUPPloBSQ0Ve2o8P/q7i647F8v7CGoigRvpWVJCTZ
IePY3r0HoZKZyCYjoiJUioiySiWjJISiO0nRklUh2SQzlO33/P56Pud93ue+
zznXdc65jj7gbjkTDI98AbNPLa0dXvcAl5m5/fRRTCeRvLp2qhwE3N2vP7Ic
MJ1YZ94Hah6AyxW6/8WpGyx0Vc3jOGzAFeC81rrpgcX9LTwX78wCrihSV+NU
ElgKVJeKCGUCruT5WsfT42Dpsad4+Wst4KqUk+oC7oDVzpvugtFnAffKye7f
mSWwcvEN1y6SB9ybjH0KYWywKkzNuldFBlx926R1BNZXRmf5lcQuAu7T1orY
85sAt9f7C/+ZO4Brsop8Hu0IOPbyrDJkAa7tHGE0thpw5y7Z1komAK69UlTy
yn+Au8fb5R6PA1zXny7yNV/sXhezF0fVAde3/0F40ifsu7v0I1M/ADfk6FV0
UwFw/U/ehDwVBdzvdN2eW5HYM97mQxcP4Cba1glndGK2yufB4ycBN7Plg+kd
beyc5AGJXZ8BN2d5w+8edm9LrX1d5TbALUXY38sdAVx1Be/iYx7A81Tsaysw
A1x2UG5Jz2fAr5+a2vg4A8OVf4fL9xnA8ytV6hTPAY7moyLAsQK84IkotzI6
4KSqqq97lAF+221iWgXWp/r/3XnneAzwoq2i76s2gFXOgcdFyAXwOwW7ltAx
rC+dLsEJ7AW8lEXugdeVYCX42b9G5D3gZcO97d+KgmX5sXyloLOAly/Xu9rg
BZa2OnPxdwMArzS1Dn3E9MT86V/ncKaA13BIlm05CxYyx83/Qj7gD906yvj6
DczzmGLbJqYBf7hF4XyHOpiriJmd8MP8NzOvHOzB9uI9l5VfGEYD3ursefEB
ANMbMe5/N0sCnviMZDWcBqZrutcctMP8YSn8zJsgg3GDKfPmvk2AdxZY77n0
DAwNRBNzhFMBf9LsYxaPMOg37rTO0NYAvGdY8pd1p+CwTfbN7+JNgA+YUNTY
JAM6nM/DYoZHAR/dRPonHgNqK6wpn3MPAR9X0/fuXRKo+rNsZh84Af7q0zNp
ZzLhwOdXg3xXCwCfknTPoKMM9kVq3T2qh533gL10PnMARA+LXF7SAMDXdeQL
K5ggaXMH/K27yoBv+AB938lIdtDW3zaNH/CfXrSVxlojeXnntvVpWPxtGWu5
o15I+eap3KrKj4AfPGadWZSJNFNkWhONa4DAO8B3QGcJgeSD35mZrUDgb01f
GeFDUL/Jq/diCRAE6zQab4kgY6+4+I5ra4Ag+uCo77ISMnlquveX5kEg7EiZ
NX+kjUzJCk3XhruAIBkTJ37UBJn2x12iXokGwl63sspX1tg+qPZ6NiAICIo2
xHgfR2Qep9yrFLQVCAfwvfZ7vJDFlu005mldIGgpb1lzIQZZrpczCjD2AoKu
xN1m7SRkGSg4pPHPBggGgro5Q9j86Xc29rPWBoLZuJMVrgxZFU4/DsJ9AYJV
1+KOhRqE458JtoyWBwLxc8Lv/I8Id3TRV91iExCoSL7K9hvCPZ6avxXlBgRm
0Yurgv0IN1/zs+V7IBC42fRj1ZMIb2DjVaSXAgTba8Pqp5cQPvi+37Pb2HnH
Is+u382H8E+SD/GrxQPB0VektUkE4Xt3XmobjwWC64mHD6KkEEFgb0OMlDgQ
TjGNzmgqIcLB/IGQya9A8DJrxQ9oIwLxjrX78igQ/LTcJZJNEOEEj57H2w4g
BMnzjFuSEcGnWvO6pxAQQsWSX85ZI0JI25U974uBELFR+dpDR0Q4a6541tYQ
CFH/ak7YeCFC8MaL0eyNQIjR7x7J3IIIHv3D2s/zgRB/btW7rwARrH8/e7zh
HhAS3krOK+ARwVBaT1IM8+eGgH7EqSFE2Hl+qvnlHyCk0o5sfHIe4Sfk0t1q
vwMhPfnMlb+yCP+CT1tj6BkQsjtuiukhhD93eHwXYRYI92XK0sPtEd7wk3Lj
jQUg5Dm1yr1eQriZz/G2jhiej/KmC/jSEO4uvVXwtywQiieFNUg6CIc/Nfeu
IAIIz7RUK6+1IqsRLcFi7x1AeB5MMW7zQVaRtVYm3zG8Xr70qN8lhKy2a82U
bcDOe4fL+5pDRJayOtLhMk+A8OFKvf3wCLLI5Her1IsEQmPz0OCBGGQhalhg
My4ChO/2cjNlr5HZ+CkVxfLfQBjxydxWr4dMuLaKn/xeAGH8WVWq4DdknPPO
zuO/YSD8WeqUoQcg+D17zDRMEwiL0TtUOp4gw7aXjTnRlkAUuJVIGFdAOq4t
46SjXUAU6n7SrF6HtCtiQ3CLCIiiexttAh2R1jrjkGWxbCBKFgm68WQitajs
gqGBcCCq1EZfFBFDcvEKJ7vePwYidSwE6awH4V+mGw/u+gFElnqaZegd2Om9
2uWgPg9E68DyT68AZBae12WzXwPRYc3sD3wIKHivenge0geir9jpBds/oBEz
Fjhy6AsQA49cOZedAFq0HPE1EWJADMkq5BtUgUPbP5vUkhhAPK80In76JOjF
hCgYPDAB4g0jR81zPQBxud6so3eBmOp1ZYuYPBhTiG+ViohATM9+NpR3Eky2
uLqhv++BeH/95rSmGTA9e9CY2hcLxDwtLT8XXTBT8QkMkT4OxEfOR0mLZ8Hs
u91ORa0CIJa9e7pGjg8spFy+1HL/ALFyvrO9nAQW5fu1+dP+AfHl/g0lRGzP
IXS+HKZi+Xx72cbFfxemWx1sq+5oAvF99Xljfmx+dA8WT86GAPHzxKOd6TmY
jqn4sK9bFYjf6Gs+1qkAXhcRbxufA2Jn1P4HNr6Azyi2joz3BGJ3CStivBzw
S17RX0QXgNg/EG4TuQQEete/eJdlIP4Se6gpbozxuu/1K3wtEMcsmwXzLwLh
l8smnf5QIE4FLQ0ZNQBRkf4n2+goEGfz5FHLViAeTyxV2E4F4nwHNc2VCcTr
4lkXusqBuCIQ7LuUisX5WTrQuRdIaw1ySAlYXB0FVTmi9UDa4Plp315ZIM7c
2z9x5TaQNmXO8VS4AIn3sZmWejqQtnzZ3U4qwJ61AqdsLwJJZC3hac8kkLZ2
VWjih4AkruF/OUALSHxLj+u+1wJpl2Omy6ZgIC5IRtPYekCSvlEPGS+B2GfK
X9wjD6Q9ddM7NdYDsdZbI4tnO5D2zUlMv7XCcH2kuV8+EEjKihYfj1wG4um1
7sX77wBJ1cbr/kQTEHWCTqp+PAMkzbi0iPNiQFiQGJ27xAaSzotam/+OAOHp
SscnIAJJf2xcoyALCM4HzT0tNwHJWPo/QRgAgtCrI4F5XCCZU40HW5UA/7TB
42U6Fh/unDtyOw14yvGBLWoPgUQqvpG6XILplWwD89s+QKL1vfS9Ng84r7sr
s1FtQGJv/0WSx/a6v9HlRwZfAsk+0ICH/BYsx3x0q8ew8xxynb/3CYClfdV0
Q7IUkJy/JzwNpIJFvV9gw9F5IJ0+3O+c2Q7mccg5pXcYSBE8cR8mx8HkXfzz
L8LKQDqvVnr/ggaY8LcT/Z/nAinG4WfEjiAwNl+yv1WzAUgJbzQ0TNaA0VHZ
XYktmkDKvtSemrgddG5L5BdXcoB0z+eLSOsm0P77+Hw0bz+QHh55e0WcB7QI
LG+X0xJAenKgJDJtDNT6PYsom7YCCX254n6nDvbW2G0/thoLpO4dJgbFQUhg
WLKx0voNkPrX6jyb8USi1WdSN1RcAdLQ74Pq2o5Ikjf1Y+S/XUCaqJKQr6Sh
va8iYkydR4C0euzv1holpL42QOZZfxqQpXIf9nz5gYx8vgTX3+0Gsuy1LFuR
FgSRMS9PGH8HsnxwchurARlbjhxp7ToDZBViVMP3MmRSVxx5I+EvkNW1gs13
FSDT8OcO7aPYedpSXi/t7iIzTXzWqfFJIBtM2j3tSUDmVwnfSAI9QDb+zlTZ
cxFZaLkekb61HsjmNfhcp1Bk0XbsOKVAGMikpEO3f7khKz6zr4LMk0CmhamI
7z+GrG4O0F5nFQKZ5Sx3zYONcHvqg1Z0KEC209l2YcoE4fc1c/K+rAD5+G4+
Hg0dhM96Vt8bLAtkJ/6VYH8VRBCx8zw3bw5k1z8zM8/kECH8gf4VtVNAPtXx
23N+FyIMnHmorxwPZK/anl+HhRHRrPLR7zc3gOxX+O1EGB8iptOa69pjgRyU
/OlH9QoiTiiorrNmAjk0/A2XZwaR9BR8665g+Yhwfd5kMoJIZw1Hc3WygHye
Vkw8341Iz61jm3+rAjlGL7eurg2RplwG3obFATl+T6Yx30dEljkChbrngZwg
cOM5vhaRreSvUB+5AzlxNl4rvhKRXav9CnccAHJKV+TjT0WIHLmDut3DGci3
3p5RErqPyEkHtcb3RAA5a/2c9aAKImdezq4Zwd7nmAReev4Mke/QC30E7gM5
N/xvxTVA5NshqlvHc4FcUOX/y/kdIl/ZcMp53h/IRQuzO/SpiBzwd9vXYRcg
l+r44bZ9R2QOWT/OFwfkCv/poCEHRD4o6jcrNgvkqqc+uS+weFeYj+5PYPi8
mpz6dt0Hkd6IWwTUIyDXqXjzuSwiUtTJ1ZnqGiA3uE/qGJxHJN1jazUGM4D8
6eFpVxEBRBziax5owfxpGhxPGU5CxPhgdn2DA5C/ynm8rZZARMX3NV6V34D8
M/PUPrcDmB4KeM6V2Avkvs7fHMMyhG/apOyfQgPy8M6T0dsNEZ4yZbRmvyOQ
J2+4Dr4kI5yWhcddm2wgzzQNiyW1Iavbq3PH004AeV7IxeLkUWS5fHesAU8G
ypo4p/uimL7M4+bTcMJA4X3X3zoyh8z/vlGW1FQCyqYNjrzoHDLXb/ZSnnkB
FOFzDk7u15FpWTY3ykkCKHsCj8q9KkHgPOfoePEXUPaVdDFT9JGRQFnpDKQD
Zf8fu/On3iADE8vdsZX3gaLpcaRfvA3pJr4eHX9jBBTzE9y7Hv+QWld6rvGH
TUBxodBld+q9nPux31fgHB9Q3OO/0CZqjLrbG6Oih1hAOd1APfeGAOt/klx+
yqwDSpA5ucfLFnaJfOsfNGsHyqXDhKy6s6CyPn6g4sYWoOTvM5f2eQWGuenZ
ReJ+QHkskTAxuwBwsOG8788ooDzd1onOaILxxgs1w0czgFK55Hc8PBdM8vrP
+YzFA6V6CusdvWAaIL0/x+s7UGqGBNZelAAz/befxR9idsOXu3fjE8D8+e03
stRnQPlUN+G3FdvHfF2bUgr/AqXpxWGzxPVgubfX5XDpVaC0328aSA0Cq+D9
8viYCaB03ZYqkygG3K4cqbEHo0DpvXbyYuYo4J5JUVe3fgbKSOjaffexvbHj
jFfylTVAGfcmzSmmYbp6623VvASg/HFOfVfQAoTBbQn+PSeB8vfIQKrqFmz+
2n3UW98ClAWamttTbJ61tpwmj2L5WLEI09OOBJIpR6cq0QeoayT7L9h2YX25
/mZqxy2g8oqosrr/w/qKiJPJphtA3SjYZri7FMhPKulKnbZA5ecLlT9BB/LC
RO/ZTUtA3bxOdksOFod+FunSYgtQBZbf/h3E8hZQkd5HVgbqljmPnwqKQHm4
v8xofgWoQtMib93qgNI8zPqJ6U2q8FjF43wHzO8+iYjoIaBuHz6aMrr6/3vq
JsTCgCrWxxuhchv7X2msXd8HoP73I9/VSwd7+kU+twoA6s5vNOqTVuxpShW6
aARUiaZ/OtNYXP/JXBJZ9xKoUh/Td2ttxb7f/LzCG/u/zDtT/oACoPLxeiQd
qwWqbM3wVDkOKDNSh1qoIUCVq7ryfX4QKI3swP2rcUCVL9esOYzxJKfSm3nL
FKgKxe15YTJA8ab/LrC+CFSlwojr1VVA0VZKkbiYB1TlXPkQHhsgT5MF/0iH
AlXlzocTxv+wPvT+i8Gr70BVTfchRCUBmV1i/jwEi0f95n8ab9SAtLyjyFTq
JFA1r1dLbPgEpNtCaq++koGqfdlxvZU7kDQKa6om/wBVJ4Z/NJYP0yubVJye
4YGqH8aqEjQBwmeX6l/1WB4MAxfvkX8CAZ/tePeaB1DBJ/tyQijgX276XjMv
BFQzlzF7kTLAJU79l7V5DqgWDokWLAZYzTxdaEzG8mJlp6uSPAlWFPUPQ4Hv
gEqkn1/dqQQWf9bMX/BVByrTQCJLJgNMp2Odv3li97EPvFOL3QKmSu28lUIY
P7hSvjXT4WBiF3A7VHECqEdWGwbqjgGUMn8s2r0C6omaM/tPyYLeSYU/nzfX
A9XXsrXs2X2Qjz8m/cId44+/zjmr3WIgm94dMsErBtRAReXvsdEgyZS9adfo
DtSQTVFLdq6w6dvQza/FJUCN/Khusk4JCSdQXiXjDIF6nX7lI/kR0nS+slkx
EuNJkqmefbkU0qbKNmkNY3xM1hiY3H0V6Wj+oqRU5wA1TdRAeMYLHR43Iugt
Yfdlf/3NTVNHxpd+/iDkU4B6913yyLo7yMTJQlwjFsPzXoVJiIcIMtWPLaXq
6AH1YVpqhtEMMvvR49oqPg3UJ3aWfQNlyHLQbjhZbSNQn5Km/SnyyOoWntax
fBCopYaZG8pTsP3uRnbfwUmgVkj/VYwLQviUzP7emwZAfS6UXTkzjAhagnnZ
BUVArVpDItpj++0HHSHfjRVARb05p9X0sPlxcF7ffxyoNc1UnrQ8RDr5rMUx
pxmota8Xr6/fhUhD3tsk9mH8qCt5sMcjHpHt9J+Lju4G6rt79JK2JUR+vxzU
6D8L1IYbKxZwClE0Uq53bxkD6oeLD78+7ESUxMmFb4KyQP0UyHITISLK6BTt
i/cAUBtdeRZCqxBVGv5ZZGH13BQ5Ofj4L6JawtuWM9JAbUnvbupTRdSTb+ka
EyNAbStvfCl2ElEv1ae7vMDq+lszysflIGqOwXhMzg+gto8XpYR2IWrlrvfv
aE+A+oM/K6pIHFHfH1nd9bIMqD/lEk73URH169zNeLdCoPYYRdiKxSLqz9HJ
g8EiQO2z8bLC1SJqn9aDmqM2QB3wP6YZuoyoPY35o7pdQB1KoMoUaSNqR5XW
nqeZQP2VDwJ9XojauPhO5zfGl991B+fF8hD11RXtKK1DQB3rkR7A9SFqYWB6
8VWsf0wsbf0SJoGoSS9czF5qAPWP2GpVERtRAx0sM/ZgeM6oTTzsS0BUlpd+
nUcCUP8SfyaL1SOqynh8/VkzoM65fI7Er0XUdYOvX6BwoC5EvvQM00eU3LcO
zTy8QF1Kf2xTFIAo0PtRNy4GqCvlmRZ9jxG5Uc9R710/0NaOh0vjZRGpdXvj
E+thoPHyn94cZotI+O8C6YVvgbZRzv5f0Q1ELLdVk4jwAtpmG8NGcT5ECDnc
KpMdCzRBf5UXeEwvNo7SjqTUAW1rglRuWCjCS69LddhVDDSRNysRfRPI6p78
+QShH0AT7R73EFdAlj9SOEsNMUATX+yyxjsgy626+o/ajYAmoVatVtSGzO0n
2eZ2Z4Emlx7WG/YCGZcVRzsYeANNy2/ZTDwGaazdXJGz4Ak0zp6ljYTdoDpm
b1Xlvgo0651Npq2aoL7cs7dzUwfQjmzLjThqAVqbLIK1A7YBzX6VOe97EnS3
P3eTH20DmnN74e9bJQDe1NzN5fuA5vrlvMLeOjB2MKneenoJaCff2Tg+/gYm
FF38OVFhoHmWbfjxehnMJIi0F2+1gBZw7ejnUQuwDJ1Yx5ytAFpQjLZAABes
LPueNF4vB1pwuACO5yTgBJU2RgXsBdrZU+U1268C/sKvUxcNo4AWceLKSsYd
IOiu//7+lBDQIm2cDiuUAGGg7JWPy26gXbTaVqL/DUj7NTa+88TijTEcmqzD
9o7X+a0N8zSgxWpVH6AuYTr+v21GJ18CLV45ya1jC6brGJt8aZlAu7Ln5H2n
3UBx0K078IcAtISd0DuhCZQf+RsunMHwvL5NXPqMBTZ3Xj+8Z4oH2o2V1zcv
Y3Pi2gapBtJ7oKXMpraKY33ppdHFtN9uQEsd9dqWfQXjeVDhg0FtoN3qsyDv
z8Jwvx/2JVAXaOntErGlT4GmVv0tVu0f0DIb/7w1wnhBKU+N2IThk/22fl39
N6C5xaXyB88A7W51JjBGgBau+oiNzQHavVL/0B9Y3hOynzhIPwbagwJChesW
7NzvoQUGf4H28O7u2T9YXu43jxc6WQAtP3VOPVQTe17+LbyOAbTChE+nN2C/
F/AeKXEuANrj6Jz8BC7QcnXVOIuHgPbkbDAmaYGWpei4Vw7j51N/mlxOKNAS
26YH4vSAVnpq33GVq0CLMh3mqVIE2jOH5fTyOxjuvhTdHVZAq7BubjcpARrL
zUhxnRTQnlPzxD5g8ekoNUf4YvhVWUYw2Fh8YtUH1q1LA9pLQ/bVbqxPTSl5
WeRfAtorLeUPJ5eB+jawVsNJAWivldfxzWJzM/Ux1Wwb5u8b2e/m4VhfdOnQ
i/l7BWhvdzyO5NfE5viGe6dMwoFWL3ShOtECKJMhNj4qhkD7sKJ+6AG21/zZ
mG/8Sg5on2b5/NTOAtnl6BjO/T7QGn93FT1PAFKrqV3aTmmgtXyPU/xcAsRb
mv+pN2H5alu492pPAsa33QfHk74C7fsuxA10B4L8/N3GiVag/bCbjZaWxea5
4WL+mnygDfQe7fe8ChbbuVHjH7D6HF4XHFJzEsz3fCgd9PQB2ojcDRExCzA7
wDfleQKLf9y5wbhqCUwOjDm89rwLtL+/NTMFT8Lh3oxdyXlYXucFKNrHLUC3
sFrIwAfDffGA28fS3XDIe2v3h4+PgLZ6OmPJ9huo936sLpbvAfrGGX7rAnPY
w3+xZi7WHej/LXVtJ8igPdTAUclCFaDvkpzLz1hCCmK+xQvXvYEuaSRi8ucr
Um6rpBR/Kgf67nNW3mlXkIbMse0tyzZAV+It/vRrEenj711aY2IEdGX5j84G
bcjw/I4uxWQnoKtYDi1fK0ZgU6bodUgR6Oqxksq6rsjkbFLhicRMoB/eEn0p
pg1ZxPBcMEs4BnSDg3dkOouRZUhe3QP3HUA3or4oV72MrFwH9nKVgoBuen1q
8JsZwqvMdX7qnga6eYnAWWVpRNhI1piZ/gh0y9Z9ouELiPBt//uoHeuAThS3
Ndv3BJEcLvd/WP8E6GSdgI4QbN7uyuhm97oBnWp9zeezKyJ/oKk9q9QCOj24
YNMeU0Tx86rb+/wH0Jm36rIDpRCVf+Dv+69CQGe/6NFpWMDmyY6SMvcioHN/
LDZKtSLqrSoDja/iQLeTUV2pi0e0XTw3jq8aAP2opNqgNyAapXe6SEME6Md3
qn/aNYNoETHTJ2QngH5CXKO0LhfRCgayyXkvge60XTPd2xbRWsbEVp0IQHfZ
pnVBQgjR5pLCBhv2A91ti/apulpEF28SNnuA2e6bDzG9gxBdPX3vRxXsfA8+
HX2JA4huNS67qdsR6Kd5dffU9SK6TXVsyNN9QPdeq7fZOxnRXflWXNusge6z
qjctgUd0r3q9oFt9QPdbOtxet4Kw546FzVFAD5jXr/EuxuzMlF81+UAP+muQ
J+GM6KeLPz9u9AR68LThtbc7Ed1ZazmZog700EmjM96fEJ2rdHbu6jWgnx2D
4xKRiG5+vUmpwhboESPGVm+1EV3FJ3nH91igRw6ZqHqPILrwp0s5Tth55/tN
/5PIQLQ/BbH5pHNAv9hjuvqWjmifRJI63l8EekyX2ZDPBkS7txmpKz4HemyH
+WeJSkQLzDDSarICevw3i7K3pxHNvNV2YmMZ0K+0Wmb4yCHa1hfByRW6QE9o
sroo8Q1RW48J8szWAT3pA57lA4jKFCkRfkICenI9wUBiBlEFjeddP8gA/WYd
Ue5tLqKcb9pVxKYC/TYizUgKIbJxU4gLlQH0jCpyx9taREr6cnj4Fw7oWZWU
1z5BiNhtc6sVvwL0nBLa9bfdiHD8uUGdOcavglyWms8TZCXcXpfzE6uHR/fY
OySdkeVBy+fP9W4BvegOh+fdTmRh/q6001kD6CW3uY2Skcjs+Mg+NvUN0F8k
2Hq+oyOwU7tg/zsR6NWX7di+G5Bhth/pngUX6CjW3lCyEulHRNQfifsF9Nrz
xwR9ZZGOQvaLXU83AP1D0IkCyT9I5Zjgnv6fUkDvPHbyl28ibDZy7FPZKAD0
LoZ3sMVOEPv02FQhzh7o3RZBm/+7A9IL8kGzhVi8/coXlKuKQVGqv/eq9mmg
/57L9NrYCFpX6gZkG7D7xn7f52nnwqFaHJ8mXRboE10F1wq6QXcm9RUvyQvo
07UVT2kTYGh6defEHwzPxYTmv7ex/cTiUN0ZhWygL0e1R3smg5n52rKn+m1A
Xw3o+c9YEsyNVBurbO4CY53tuO6gMljKvRm1H98DDF7KTEN5CVhtfeZnbdUA
jI0mi0fi9MFqdjeFnuIFjM2KfGGqBMA/isjKufwEGIISW7esbQJC5KbX91x5
gLF1q2hGqw0QKdqFm6b+AEN4VhYFn8T6fSEfX5g+MLYPK9KIf4B8JWXMsXgD
MMQ6DvZKnwEKON3cZDkKjJ2vDNbVYrrQYoV31ZMfGBIlpkkp2DxKqjBBbGw0
Sz3A73VLAWpX4u3QegQMmTRqmT429+SCKyXSvwJD9jLHcgs2Z5ztDprXWQND
LsLua48K0HKUIp7ceAcMeV9H16dl2BxpVsBFOQJDwfnk/EVDoItYpW7yUACG
krV3LBfjhVmYSaG9GjCUiUG79hOxOne8sX18ARgqRmfzl1uAnjq97uzxh8BQ
Vb+g34jVYbXURv8CIjDU98Z9vNMP9B+de+KeCAJD87/r9v6ngD4vN/Bx6g0w
tDffnLCcxvI0+WtV4jgwDq1kRuwMxvzW7bjauQ0YulP3hcbWAuPgQiDH7TUw
DvcXZL+MxX5XubzZORIYBl+fql/H/mfQzBOQKgQMo4aK1443MXugwfPQeWAY
VyHmIRns/07zF/wZwDAtqhvgz8X8ZBSHSw4Bw/zuR/9OVey+ItUwERowLJNb
NjwqB4ZQWO3YzUBg4C61p5zD5s78y6/adpPAIIT2KDCwuu4K7pfkagKDdHqo
Qp6MxVsSOhGwAxgUh3HcHMarNF8LJ3sMfxprpv09xnPv6n8WLh7AYFgtuqcP
YvnMYjeIuwKDpb9mycsDy/duvXK/ZWBYy26VEsX0zl0V2dp57P0RIxv+Jx+B
dtQ68VpoCTDsbHNmyRi+YmkPj2zG+Hc8Re/DRWxPCSjQG3HA+Hui5EL5Howf
0g+s/45YAMPpS+Pdl8eAErOz2IOL4XdSwDl4bi2QVhYD2x7IAeOU4hPnJDqQ
DgSz5uWxPHpaLNFV7wKRcXfDEeM4YPicu67oZgb46O570wf3AyP4b9XX9miw
SBH2vq9mDoyw7XyvA76B+aUWg4CXGN/C1RiPRRTALIDVldGK4R3l/usioQFM
DOoV3I9IACOuR1SzSgAOSxkFnzmuC4zb709dy7wOEsraJ/TTDwAjY/hZ2OE+
2Pb1mIjstxhgZG9Y6/pN02h5DHdXTTEZGPfgJgi1ok2Xy2P/Je4ERmHp6/HI
/9B+2l73QZXfwHjcvKVdyg2pHhpb6eu8Cownk9ZvKiuR+muSFjXjHDDKlCZu
Tx9Bh97ru9bl/ANGddYugmMGgjqxaOIJrH5RlfMhnglkPD1Xu0lOFBg17U9k
0wGZSoqlDqlivHwrajHf2oPMj5aO35nvA8bnWJ9cSzmES8/DpfoUAOPLg6rE
Pj+Evx0j0ZeK5a/5DV94+BtESNoffWJvLTC+rmawy50R6dTDGYMwA2C0S/wy
YT5DZOLyZf8N2HmdepoHpvgQZS+f8Im3WP/p9mvgVXyIqHb3Kmip48Do9Vg0
lmhC1DLO4HACxpd+F+WwrUuItpm/NH1GHBiDx+wq1u1FtCP3no1cjQDGsPWV
mb9kRMsVD+435mJSno5UfwUh2iQhzr32EzBGCVOnOrMRXfNgiOSeM8CYNGT0
18wg+qManzUnUoHx59AFmTIpRB+g/RBldgBjRrXM9qElYojT/mmdqQHGX8Wh
m7e9EMOsNJ/XA+P33J7/Wq6mIYaHN4/+6QfAWJDAC0XWIsa1M1LvHvMCY0k0
hOg/hhhFtbSCX6XAWNlSEOMmhhjv8fwpd1uBybPxR60tIEbP2p8appnAXLtm
Kw/lJGJMDd9Q8bcA5roF0DdJRIzlvzuWcA+AyTvtHaT1AjF5910iJI4Cc+Po
nRKFQcTcGHxAS4IETP6B5klM3zDXj4bLUHcBc/NPXuWtutj3ZxXsFSqAKfhN
23WtA3a+6tpg0QPA3PrF5e5sPGJ0rxeH2n3A3NZw8+dwGWLUL2eFVrOAKfK6
YVfHT8R4vHuja1MDMEVfLHI+8yHGVd++b27HgSleppxYo44YJ5cWRXtigLnj
sd3nUlvEMK41DNS6AcxduVc3515ADJGm+ofKrsCUzEaWtx4heo969xP/UmBK
p01FXfmG6A8nxnKlY4G5O0n2ZeRaRPcUO6vQj+Vjz2XGov9+RD9QAqH9GcDc
F17me+QsomVey1H1ZgJTMWjoMRnTe7Q/CtLP44C53+e/38ZfEI1n8y13vUZg
HnQMOaEgh6iUssZdktuBqWZXkLmLjCi9fe+Jwq+BqcH+0bElEFGkvIVttbD4
DmGaY6YBkc7GS9cmXgSmkQqvyavTCDdMoIYFdADTeJ/22ZKbyGpq2jr6jycw
TWVcKh/UIMtZ7i6LdhwwLYUb1K9sR+Yj+ERPNRlgkv9dlbWpRMaJ7055bf8H
TPtXO9bMbECqxgMVtMt5wDzWf+Vm0Rzar0w2MhwBYJ7gW3/Q4zfa+370RKnP
NDBdyBO2Q41IdEw3VFsYy+/pzjfPOtJAtPThCaEazN+IOR+P1yqg17WLfk5S
CJhRu4bXR8iAgZ8QuVzkNjAvGNndMhABWLPN14rtBcxLF63elc2Byblv21sV
6oF5fbv0nrwasDRTi9ojzgBm0qGkShds/jul1C8m2QAz+cgmmtwDwEUYLcd3
tAAzLXv2bEY8ELK2br0/hcV79+D779fZQDmncN80ZQ6Y9xjGXhQrbD/kp34b
DwLmg4BnGwUOAzVjRjAG2xeY+VV3NC/KAO1kfkH5AIZfYY/4e1NhbI/Up2dt
XABm0frLDjy8QJdtoG53ogCzhBB09cwI0Ov8Zd8/x/hZ5jkur92Jzavj67b/
xfwrv37ixfRnYDCHj97weAHMytLvjCKsThP/RrgZTALzxXfyiAc2Rz4G6TkY
awCzeqn2nNJ9YK45MtMW5gzMVzJ64kOpGE+uPVqKxOrptenjRznxwORuXt8i
4QPMNy57zY+fBWbwc43URilgvo1N65TC8piSIvm6mQDM+kdCPh0ngPnoBjla
YwCY779c5L/JBubLwqV+SQlgfpxZzGJZAbOhY4uOER6Yjf95HxLW+//zP/YF
MWA2HR78+Bmrw88OJ/ac4ACz5aitYzzGm3flv0o1Mb/aIr8s4oSxOCRs5jSl
gfntvuX1DeuB+fDqjtbPfcBsr69SqMF4dU1U/6cyxpfOMfWX4SPA9Cm5HPzD
FJg/hXLZ+p0YD/0u3viF1XOPpuTo/GdgytnTv/ntBGYfJzGqDMvXTGiDvaMc
MAdC+Hf6Yvmq7jw9k4H1m6GMs09Usb4WFefRcaEHmL+ezU+JemK6ovW4bxQ/
MH9/8Vdd0AT6Ss1qjNNjYI6NTHp1LWA62xkcObrAnFzvXvQaAd2x6UboFxNg
/pEcnMzFdKqQRP+xEQzvmUMOqpeJQCs7cs5o6jsw505yi9jfgDojuqik/wuY
C1HNk4czgBr3xqeX3xyYS+kUVRlHoEo1HjOIdAMWT6P541+TQPbsfHTmdSWw
+LXVH4fxAf5Uwtl/nBvA2kwpnDj+CXDcq6K+gWxgCbopHrRIAisD65GTaZeA
te229GMhGTD/EzPAyZkH1s61Ao/u6oDx9r1+j079BJbSx8HCeldQWhP549K/
amApDx0fe6QCcpF/z9MLsfMO8vw4cH0GJBc5xFbz88DS0GgutI0wWt13ymPK
zA9Yh1NRwcRNJGtztEjtpD+wDJ4eHm2xR/v6d/cG7Z0FltGHZ8oVcuiAq3Nw
y5wtsExXCwsii5DmgYNGd/dvAxbRKa1A9B0y7PwleXlPC7DI4aK/F64geG6T
aqhUDyzqzWv7fzKRybqBC3yuTcBivo/Oz+1GZhfDTq/f8h5Ydmp++YfnEM5q
Y+/TrpfAOoqf+C1TjfCux/jWXuwB1nFH9/285xHh3EOcbUwQsJxSjud9FkKk
9FYKz57TwPJYJuc5KCJqpU6XoU47sE7/KdJLf4dosk+n/jO4Cizv4W0N350R
LXpvt40qA1j+TS2/qTmIbho3/ca7FFiB77RD4k0R/RbNbrf9ZWCdqbq5+S22
P48X6XSxsPvCco8oG8kgRvSwpNPKV2CFp794EfwSMT6mVa0dvQ2sc4lSxDJ7
xNyStsH45U5gRcWEd04tISa+9UJS8glgXQjr8ThwCzEjDX6p7K4FVrSvybKb
HmKWvFnf90EPWJdccy7nfEPMXrvWBonNwIqz3yDZHYhYm5YuxFrnAusyw+WR
hBhiqSR7eN21ANZVq3pDTilikWR3qN2XB9Y1Q6VPiUzEck7BuZhh/iZqxNt/
+oNYweOzryMdgHVDYWxi0zXEit1Dnt97BVgpUpRwC1XESjqIrM+vB1aqyJOt
5z4hVqrQ1D5hMWDd4hfOrPJArJu1b25TRoB1e8Xv4LwAYiXij96vx/DImG5F
mvmIFXNHmjXlBaysX4eoXnjECvp4Z/leK7DudN3szh9GrBOf3wqwi4CV07zg
NRSNWLiCe0kvzgLrfr3tmj3yiKXkdiNO2wpYudVV1+xrEWuDoGLZaDaw8kqk
d6edQMzOzIPssXBgFTyMeNK2FjEfKRSERGP19Cij12RbNmIGP+3arnccWEVJ
pk0kQEwTolbxwxJgFV+65xDThemLFc66Tdh9JeEb/tSGIUbNt+0Lt8nAKvNz
jeKRQIyQYc8XHzG+lrs1iByuRAxVo/hDLzC+v2Be1iieQ/Q4PpdK90RgVePG
X4+nILpalvR+GU9gISMqU0kb0ZobznsppwCrVknEL9sX03sHza4kYfX2fjW1
9Oo4Il8rOUhmfwAW1l/N31/G+GrCq38Gw+/ziG3bRmVEzL7kLTotB6zmVum/
Z90Q/oaGjJOLALA68u4fOtWPLA42WaUZzQHrN6u4AteBdDpNOnmuOwFrzJ+b
QzFB2kJf7pzJHAbWRNLKVWYe0jC8XZFmheE53YJ3OhqM9gvLl55bjQbWEr13
m//Ol6s8LTMcs0PAFqRuc8vigpbJ5aEwYR1gbz39jHkPgc5/kzafibPA3nbV
zihfAfR+CS+MZxwBtuinh6KlcwC6Jbea5luBLUWCV+9TwPwyCEus0QW2zKnB
gsYVsGiJsOuI7gW2bHx8SpszWIletXC5RgG2/PtvHj3agI/KL5pLOgvsg3iv
HX/bgLKBcLb85G5gq50UW79kCFR+NZGW/XHA1rj0fHLNfaDGNto8ficB7EP1
G+sEAoAWoW03M34Y2LrDhU+2dQFtumzX5qY/wNbnY9wWtwC6w+Ful2lNYINl
po8sticcbHdv8N8CbBMXc7t9ocC48kznntJBYJtd/G2l3I/pcFnlQcQDbIv7
1zTUicDUX8N7plQc2FZ1h6QOlQAz9vCmfzzCwMYP/OA3wOZkU8V/vw84AJvE
GzljgvVRUaecfGnsPMpehZ+Wo8CiK78uc/8BbJrZpwYSE1gxS2r3gqSBzXD0
K6W/AFbFa1b2pTJgs87vzOJiuPf7WjqpEYHNuYvi7OKBzbfS/DpOANjWr50D
HGaAvc8mouTfM2Af6RM47moLbKPQhGFhU2Dbry0metRi99htaH33GtjHZLmH
fJWBbTv7gHPHHtgOxiuyQYn/fy6+PJoJbMfjOYJhC8A+bsQ4bd4MbOdzuLko
LA7r0do/l1aA7Zo10RfTAGwiQeWGHw7YJ9GNT1fUga1jpx065wPsU92HKxLT
MNz34Q1yPIDtudqTk7oWWMuP06dGLgLbWzr6asZJYLWtKH2eLAW2r9GB4LtY
n8+TKDTS2A9sf72KMiyPrOC8s1Etl4AdqG0+ZYv1YfPhY4ZiGD5n1JqUy5Ow
Odhr89uqE9ghB+xdt2M67sO92uy0ZGCHKYzc9RYFZoyx4TrxUGCHywV0fcT0
i2Hto65GOrCjdl1lXcD23Nv1J4pPYHy+IL4rofc/YJh5lbvlY/yLFn7wwZAL
9CGipDLC4ojjRyZ/24EuNRcyLo7Fff3flKpLJ1C53z/GS38GdtJ0mHutBFAq
kvMTfjwAdvIE/wMZOyBXnBsk9x0DdtqgrOS3LiDeceM/zpMO7DstjM24brCS
Lih6o7kE7OKiksH9A6C/xYD27inmX0mB8e4YedA9xmYVmmP8LXvw0bbfGbTz
K2ve3d4M7MqMgebbw6Cmtrl36nwlsGsui70SHIH/ZHNVn7Y9AXaTW9CtiXGk
GmzDSH6/COwWp/VfiSpIw/jP0adsJ2C3HbsmnHsaafPiyZ0f5IDdznl46dgk
OhwaYd/KmgB2r3l7wJdpZCoo0dS5BeNNv7FzsYomMmOHDzP/YfUyqP9nLNYP
md+S4Cr+h/FvRHOzo8lfZLX95WTbzjFg/5HVpz2dQ8RXqmunNJjAnhH5pK0j
gEhtnPNGHIwPf3mP7Xwhg8j92Vm8Mz3Anh+O6qu1QlT/jyn/QBLYi+2i76xs
EXVq8N2FdYrAXn7/oOCDF6Kd3G5izdYAzppH7/1bUhGdrPNGeV0AcNZl2dlw
sf2rYu78VUIUcHivTRh21iDGbvuNznkngMPvL7KxfwQxesueiWH7A2ezc86o
6wpi6gcXae34AxxBrnbjmDBiXrso9H2NA3C2HbZJndVDrAMyKX97zgFHRHn0
7BkyYvle4l6Z+QQcUamzDssOiFUyWm1n4QsccSEhy3MBiDWlF1bpxATOjjV3
lHljEVvhRMjPjxeAs3NaU+hSBmLbWDcVGoYCR6L/zaxgMWJHC7XsrdgDHKk2
zvdrdYj9KEzwrsUZ4Mi8/VUt2oHYjUl4VF4EHNmKkDupk4g9RkqZe3gLOHL5
gtFS6xFnfbbZ/OYZ4MjfznS/8x/iiMUM5pVi8SpcUaPKKyOO7Cp31DoDOErh
rzXzAHGUeBDPuQjgKHuzdqgwEWd/7KVHOznAUXEYXC52RZx9tzxFiKbAUWUG
9WqHIo6UhpcStx046hab6ioTEGcro4uHdR44modu5xvmIPbCKjX9AXa+tqLK
1ZpyxO7Rzc/S6wCOzk7kZ/EBsWv4JKJDvwFHT4DObehG7HTvHcWHMbwOL/cb
kGcQ2zf0+JYb08AxmAjY3cyH2Gbqf0NNlYBj1MO3gSOJ2Fszd/ecGwKOcVPq
SIc6YrV+ODW9sxs4prX7Px+1QKzkt1mPxySAY15a9bTPBrHoGTUJCVi+LB9Q
brp4Ihb/8W3ujyyBg7vZE/o7EjGfS6/dWikOHEKs7/HTyYjpMnL4eosYcCge
KUqB1YhRPMvXusQADu2o4pbFJsSg2aGVC+HAYVArp8MHEf23/Jrw+WbgcDS6
XsRsQfRtGs9EtT4Cx35BnnzTHlGVRFteSZ4FzrHf5RoSPohCvBRa45cLHIcf
ePGsi4hswH5p65cPHGfk0Z37CBH59TPu8V4FjufFUp/yVWRJixj7V8ALHK87
ccUbOpH5vPvZIVU54PhUH59iViKztMVxhaEE4AT83XJ60g8Zf7jm7s4NAk64
k4vHvmF0aHi5ucxWHTgJZjtckpuM+g4/OxZU5gGc60cn7vc/BsEHXarKTzD8
k0LeDKrHwy7Dcxuaz24Azs2nPo6fLEGJR6hheK8KcLJl3zvwvgBdLePFXrY7
cIrXhNn63QOrncc0AhcfAKdEknGrJhJw3i7SdoPY92W6ih1CxwD/6iZP9QCW
n0qvNuuCnUAirJQO7K0Gzov4gpvz/4B8IYz3zgEucKpzI79ZtgClrCzgSpoA
cGq6D7L7rgB19dyXor/JwKld4k1WcwdabHk35+tl4LwV72gNtwL6tn1zvr1z
wHlPiWHuWgeMrWJ5C2tagPPR3T7RtRsYF0k/n849Ac7naM2msmpgzCm77IkV
BE5zdQ+Nju3t7+0DZaMxvrS2P0vIYmF7jz9Jw20fcL7+vfx5XB3T2ZWyboXa
wGkXdtyqLwSsH8Lxy51TwOlU0SNfwvqaslMtXRzzvwsvdPkrNgf8b+fuFgsG
TrfT4Me9ucAuz36rcxTjc++5KgHfC8CePe70vLAPOP3piYRXWF/ZXx85UYXV
62CFW9xWI+Acqe+KbdIFznCrUYMd5tcFxvIlljVwRqbE+PPmgZN7ROWCRiBw
xgRGrebasLy0XL5y2wY4Ewo1MRZPMT+fbbywIQ04U2Y33yZhvPi1aDvh+Rw4
08dOb+j1BM6f23L0yS7gzIaaW6gSgDNz48OGVaz//fNb09rKA5xJ99WB+yTg
zLtXO50pw/zyrw/79R04iyeCZ6VOAaetJOOOwzrgLB85dP61LHBe7bdNtI0F
zip9ZrsLVtf3uixjFEyBuwZflCNwBTjnm/l7aP8Bd52Jh8YTM6wuhJ6um0wF
Lq+e4mvWAnDUMku7CB+Bu1FtkL5QBOzVS0NiAoLA5Ve805vpDOy37cHd/k+A
u3n3UR8zTMfFZqy9sP0wcAV3SKwZbgK2Za9bnGsIcLcKfbt2OQZYq2V/knTH
gLuN78ZudUNMxytr/IQp4G6f2wIhecDaaPxak70CXLGJhkaZY8DM43/B9yIW
uP8NRR99IwZMy1cVUVE5wJX4yhO+JRIYfvZdp7ceAK7Up6otT3WAsc4/zfPO
FuDK1J3J4IwD/fLPoCSlCODKlf6pyrYB2g2JRLTbEbjyhY9JFkJAE1a6cfqe
HXAV7rl3jtRh+/0azWcqOOAqJ/UvaaoDuUf4b2p3IHA1fb/qveUHvGTso6dz
NcDVdk9scK8Gq47Mr5WY3uDqnKDaCPmBZWLI6ucnYsDVp9efse4Gs6naG5T4
38A1U3v+bLQcDPv4DQ7vDQMuYyJLS9gVpCxbxx9ZEYDLGrKtfSYFwpzSf4tL
osDl/NzBPNJiNH++Y+cDh/XAPfLpuu89QNsSaWXNJcnAPVF4vljnP6RK5yz7
LtwGrq+720G7t8i04NFzoTefgOt/+eSODxbIXDF1RHl9K3ADH7uv13uDLLJq
EmWl9gI3ZPrUd/HXCBcqvbWhzxO450O8Ir+8ROSOgp+i06rAvZju7QGGiLo1
YZRnbyVwY176cB5VIWpB25bPNgnAvbzOTznuOaJ9J5yNGHoP3Kt7/cUW9BDd
Va7ARHQDcK9ZBqxxrUD0qfYjR2JygXsjLrDN/BlizOp7KQofAm5KYRAq0UZM
z/QDrO/VwE39fCZfthTbj01V25VjgHtrKvjGNU3EogrcCLeXBm6GSEj46lPE
evZ9lxo/D3CztEJPeqoj9o5YVd/3HsC9wwljdj5BbP+1iydEdIF7/1a4YsVj
xPmvR0RbQRO4uVUR2xVUEOe4aLzdHMavvJ8RK8mFiHOnSNZwaRS4hWvO/eLF
5u+P9A1xnuHAfbwnstk3H3G3NZD5hb4D94l5VFWvEuIa7ZtdObQduE9dzudS
HyKu04Nf2/OPArf00oXrLxUQ94LhuqIFIeA+y78YduAB4qZ3i7/4gPGx4mO0
y215xH18YaJPDqu35xMx9E33ELdSkW4QjNVb9bZL+mfkELeqbq1XJxe4SCNW
fugu9t76tZ41xocaVtw2tiz2fT/npE4ocGsD4xZrsxE3wyWSlPQcuHWp8YMa
Mtj9Qxsv7qkF7rvnlxuzMxHX2TWPuhs7v+HHledCUpj/M8ragReB+2H16r2z
6YgrnEjQckLA/bw74eqYBOJ00V4SpbB4vpheCz5yC3HuGhwK+4Xlq9npumPD
Tix/TmzTFAyf1uhEik4qlt+OQs/dv4D79WGS7oP/ELv+aUVIBmZ/f39DTjQF
sf3Wdh59egS4HWPJW86LIbZ4NwdN3gNu19bkuT83EKvUyaLgwTvg9jJufvyc
iJg/mnk6vTA+9funlhti+s713xrlRhXgDqak3Sm4hhjjOp96A4aAO9JxO/DS
VUQfypRx/DoJ3NHl9ONz2Hy3FXBR3uYN3AnpDKLzZUR7rzC27wcJuNMnsnab
xiFqmrDPTzvsvsXfdxuWoxFh5SsBHj3G7MXZHUlMRJg5Iu+H7gJ3ScDCdb8M
Ivz6IftQEMNvSfkXL7cSEVo6Il47YPW25Kli9HQUEfJeDaYHjmP2ZHnJSSoi
sLUmTQ9g/Wp59mP6150In//yRf6P48Bd2SA16jGI8Nn8fGtOFWC2mNfh9U8R
Ppkau+vHDGYfEv6mTkT4iHatYzJdmB3EFb4cjvCsb4e9v//fXuiNNu1HuNXw
rJA4rB5WN2u0thch3ExB3nRzOmbvuiDnHYZwv77+M85Wx2z9fa8yxRCuRZEr
L4b1o9WwU4sLOITLfUa+3t2D2Zer8dew9+ltIYfWOmN2xtbUfb0Id316wgww
/Feri7VZoQgXpljkLLgWsz+vOz9qhXA+xivdg5KY/ZPZHCWKcC7clGunAjB7
4r7sDux7W4+Q/VtaMHv1n1fRI4SjReQdt7b5H4navpY=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 100}, {-98.96521054288439, 95.82164288218922}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.3947559257789373`*^9}]
}, Open  ]],

Cell["\<\
A mnemonically better name in this instance might have been something like\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"firstgraph", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"x", " ", 
      RowBox[{"Sin", "[", "x", "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "100"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "firstgraph", "]"}]}], "Input",
 CellChangeTimes->{{3.394756055964422*^9, 3.394756070729985*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwUV3k8ld8TtqfIvu/7vl0u1/7OXV2KtMnSJoVQISSRLNmSsoRQEWUJlRAq
DsoSUVG2voVUiGTP/ru/v+Zz3jPvzDzPnHNmZt+5E/KnmJiYWJiYONn+Ly0b
Ze7mb9xQsEjZu6sq5qEHds/zjKw653PM7qP3+cCaF9hjT7WC8uBG7GyXrvyr
/ZnY86Sdh8eMUrEIew9lGb4arMGTw8NPrwVLahDVtvXzwppzt2q2hEOxjPVk
HbbjDljr9XVLako6lmeR5HFd3BrrCPnXnMj7GCv05unt3PLEuj0W6R8T27Dy
qHevslgFsA8lwb+4o/9iz0g6OjuatbCe3GX1x81h2PPKM8Tm7c+xTxmBPvtZ
dmAv00NZH1+Zw/quz5cvQTqG5jZSkEwNNhDtN3s7XBFrfq9x2buvBhsK+Ys3
f/UEaxk5ZnL9pzj2zWOqNsq0HXt3uzWIt+MeNvzY8LKg+SPs/d2+uFSPZWyk
JODeyaFZ7GNs1N+xq1vY99y5UU6Jy9jn24aXVH77Yb+uz3jYZWRg33Lfb/Xd
7sbG43Xico2+YiPsg+84cM7YRPSZ4tnPStgoaXfht3Zp7HfI76lbQk+wsXcP
hB0VKrAZj3G/oeS32KRkfE3lhB32F5fanp4Zh/0Ouvhy2fQh9vexgTPmqYVN
fVyeijO3wGZL/C8lb/PHZq6Xf7stm47N5/6tx1M3sbmQ+GpK5G1sQeam3X/C
edi8Ynv7QMkbbCFH99vVHxRs/m0XW2RcMraYcY6pL/oatsiX9WPvl23Y8vVp
ckizGLbsm5P91KoM+8eV2KuY8gJb3jh4/t9iB/YvXutk54mj2L/od/Fu/trY
SrR3jAxzAbYSGZeNMuaxVRYukZYPVtjKP+GEO388sdXwksJzuZPYqvvi99Oh
a9hayERbI+CwNV2H6BXxQ9jav3gnL95ebC1Ox2Mx8xS2HqQ2KfAtGFsb2K7T
4ROLrc+3hbx4LImty2eyCriHYRt+nlwnL9dj665J577ncGEbM9tydtq5YuuZ
9yOD1FywTZ9CrWoZNmy9JXGSg/oH25ykvTo6XYit/94uslZ+B9vy+Gm37ZUN
tsH+yYniNoVt/RVZPLGFwzZEi/Y3/ekBJnPFrmNyidiGdJRlXMQPYLpirsDd
eIWxL9PKt30vML0+EFh3IgDbYDPGh43fAWZOn3ZPVk9sfSz5+s/zwcC8+6q0
cMFhbP35bP1Yficw37zj20y1x9YvK9X52RkDc2/Va9+fFGzdaC3792NuYBHr
EpOJNcbWRne3UNrKgOXwT+9ONS1sLXyBGXtyDVhyNxsutstha7wf02qT7wPL
D1FBVS9BbDW523Vq0BJY1XXdP3FxYKvsn1fz6z2A9YxVXeSjVWzFe6jablYQ
WJ8e59Hb/Qf71/zp9ZL+G2BdDHb9b3oU+7ezGVsRdgM2k5tV15I+Y8vWRcYZ
EvrAFla83UT3LbZ0Iek1QfQIsLMPPEnzq8AWiguNE6ZNgN16jo0k8BCbL+d6
bNGYBexJOw7NPMvC5go+/7eX7AocIqZbNosR2F8v6+ZYzibgcN6/7196APbH
v3isrX4/cNz1fviQ4In9XpYMWj/xHLap5NgxX7THflYpOuyVzAROo42c5xty
2GftdkPdtWbgvCT899RdIax7NFC59vUEcDboUAQxTqxZTJag9JsO262O/j57
ZaahLK7FnzowBDsOIVNltvqGb43i97jqeIA7OLIvhftIw7LgXoGql6+A+2W2
JlZm37DCceT59ZOHYSfTs8vTdpSG1dVQHPtgA+yMG1Oh39Rq2Pyuab/InQY8
t6kBW4LriHUv8YXJtB7wHWHbbrTzHdqRLU8W/tYGfKFdmQK7PiKuk+LbQg00
gS/ntsqf+H7ErRbhZKPMA3xfdCiF7GNo5/2L2htDc8C39q8nijyJeA4FEosn
LYFfsvnEsYi/iJfjhRHnrQfA7+J4RXRjHfGpR81xkXyA/5Iiz4I5C+K70Hgx
ZGkG+LOm77wP4UR8TZlHO2+lAX9djVZpDQ/i3/5rT7nkTuAfjHwRtySI+G2v
V5SuGQL/qq3NKbwY4r/uXbGwNgACEqIDRH8ZxN9+Ytcv7hEQcCpdWvmjgQQM
5ROK696BwMULVz9r6SGBk0/uisldA4HbJKEKLyMkcOOHGbUjFQRqufOTisyR
QPUD4UXCORDo79P3+klCAv2f568PXAWBf3mNVkp0JLB0osrA1h4ExXzsFU/Y
IUFenGtGsD8IGht93co9gAQVtXWiaXwg6Mh8ZuirExLUJyaIlwSA4IWO9Rqp
o0jQ3EXx5TMFEMxIv5bmfBIJEj0WKi9ZgeBzVwnfTC/G+hDdb/YiCPZpFu/+
7MvQF38d7vcaBJeWjNWFgpAgLs9X2LYKhERQK/u+UCQoP/LCPkALhIyuHRy5
GYkEubtjOKPCQMjh4NirrjgkMOeqQir+BUJBcuezuJOQwMeks5Y9u0Do1m+W
IJs0JFBmXyFVrwtCVVXJ++KykEDk/Xci5X4g9OmKnE7LPSSwL0JlT7IgCC3a
POZiK0ACUhNV+pE4EBYWtvhFKkH8I1/YXV9/BmH8t87mK08Qf56TqYGLNwgf
KHG5V1+N+F1O8tfe8ALhgIDJS+svET8f06+DfY4gnIZddDRtQnwNhlW9j0gg
3NObwVfdhfh2xu6R4ckG4fl7ylMLvYjXyddvuicVRARPV7brDyKe6/uqTiq9
BZF9mx8jyn8g7s87t22LjwAR/3bXI1OTiOu3akixYBGIpKT+NdX4i3YsWSnM
kbaDyEf1nXMP1xHnjKX/uf3aILp3v7XbPSHE5ueUrpn/AUT9pPux/yQQq1nP
wYvZCiB6c9xDSlIOMW8sFPU92gTR92HRvRmaDZu9fhNirVYgtqcQUW+QGuY/
uY+dERUEsbMfiyttrjTMsgpc4Wr7DmLXN1IV2esbpmyChzNqfUGsc787U6hp
w3AqZffluXUQp29xvThtgHV92BiLt2kDCZLDIRxZCdvQsx5VeWQCEq4RcG/z
BDDpp3+y1N4OEldKNXhqc4G58x1SU+sAiQbm9Sk9KWDb/NonF5IPkmZl9wul
hYHLtu56/pMJkDJk+yO1zAGC2eE3OLODQOqAbt+1CgoI2YbpNz2ig9R5Z7R6
JhKE1taXUnFyIPX0SWrf900Qsa34fZepAKTeD4XR7pmDyN/I3IrHLiD1l8O9
yjkERG9sy9bTWQNpncMmKe+XQazeB5/4+hhI28YqMicagbjdb9uLvQMg7VPB
7WsVAOKDR1/m+x0B6Ufbvtm++gsSI94Du068Aem3+m0vL+qA5OHSxu9f5kB6
4kiFJt4HJD/qpZgT/4CM6rOrnCXjIPXoMHtDhxHI0L6eveCuAtI8lU5ux5ZA
xn37oZ/yJ0Ha+ymvzNwWyFzFEw98uQ/STdqD8UPqIFNwTKM5YxhkBLZ96T+8
B2SaE4T098uAjIv0k7hT4iAzWrmRx3MYZO7sCagbswVZ5m+/eNuzQKb/cr8R
/jbIyu94fzl6AGS5byjx6P0GWTCsnQYxkDU5Rf2TMQuyx47nu6w5gOzRX4Ns
Ie0ge/la4tvqNJAN3cJHxbOC7J3qIBO/jyCbesvrteItkH05cqxImw9k76e7
LBtfBtkv3NYi43YgWzxTe4Z5C2TXCPpX8xMZ62Qe76/WILcTt3NV9xTI5nm3
pt3YB3IyYg9ih3aD7I2XFm9XhEFOl8lCOBYPsgHto7U1eJDDfvXmG0iBrH18
jxe3KsjZd/vofWMDWYX537x5EiDn+py1PmEKZKZY3roXD4Cc/93s3UY9IPPo
2VcQeghyUTH6A6N1IHNi2ynju84gl3bmrUfSfZDhZQrIaPkGcg8Oui6aJoB0
RcH6/klFkKs2X4n86QfSuzfemrBogVyrUjJfiiNIfRVJ1B14B3L93Gp3LQGk
Tm18yH8hAHLj80hzUg0kx95ws40vg9zK0KHadD6QdL6S5H5RFuQlS2J6p7+B
hCZelJf3NshrpcicuN0C4jFuknkOPSBvcbHqL7UcxPoXjjz3SgP5Y/QfXHcu
g+jJt/UffLaDvK9e6G1rdxC5e8TTUVcY5CPEhFQWbUG4e9pBihGI/P1fZJKt
FAhJ1ouvbDMG+Wddg90rbCBodELBMC4G5F9X+x8p+A0C1u2vUvdXgPzPq3nB
63XA59Li/DicCAoailuPS52A0/3465D7s6BgxpVh4QjAYWjwnwYWCAq75nU6
2NSAdSV1cWvAHhTONB356fIP23ybL+NgdxQUnh5/Kc2Vjv3y6EpTtRcAReM7
wQlePQ3rHn8+5vEIgaL1VT4xkTrE1EBwO8BnDIrOPoUPmu4jVhuVh332L0Ex
1Oxzo4Q/4jws5hp5/wAoNgzil9/yIX7t/PLumGOgZCUye0rdFkncOBdz8RsB
lBz+exF4bRVJpu7F28ypgpJ7wdWrf4qQVPL0ziNKq6AUoy/+sJINyVzWv9Dy
dico3fr3/blIBZL1toPS1hug9KChrPXiMSSnznZqjF8HlN7YEsct65A8+4Nh
5ZwAUPokxPUvzxPJny3S5C7dA0pjg5+3swkj+Z4lkaD0m6DM5uml3u6LFFJW
8H97pkFZSBdvqiWDFKb8i/aOVYCy4uKmTVIHUiQiu9v/nQNlclSK9wEVpPjN
66IbsQ6U99scvlTdi5RUU6JFBBtB2Y1fJVE8Ail5K3+leL8FZf++vzmhOkip
hPtjVPQgKEferSv9+gUpjem9xMUZgnLKqehXxASkLB7KgzjsQPm+lt27AmOk
bD14uN52FpSfzot95fiJlAONj+ZdooFyY+3on9OpSDk7aoWu+gGUP1wp3ewE
pPyylEKo3A3KI1YXeHX+IOX+vBvJhvWgPMtDlE3OQcozB0+/lNMEFaZPXLoL
NkiFqa7g9ZAUqPBlfwKHf0iF+43LmcvbQEXuxD372gdIRdBrcYa9FlT01E+7
Su1DKkL3dU67/wIV7K+BXzgTUuFzE2Za7AOVPdUbESPlSIWjULDw8X5QORbW
mkJxQcrLnrPJrD2gco6SfL+QEymPFny2G3wCKuFcLs+2VyPlNsfd6beVQCXp
o3Kzz0mkXBRJKeM5Cyp3M2d6uvmRcpSiSLD5JqiUH6sdw9UjZUfzKCNeZVCp
V4laSPNByqofqvuk5kDl3bQd27IEUpr9RV9HXKDyX6WYsFMrUqqOsrj9lhtU
pkNGlV8GIKXAMnZD635Q2SCWGskqICXdM6FdY3GgupMziBbxHil+75o+ebQX
VKW6wWHsMlJM+Y9LjNsHVM0P914oHkAKI4Y6p66tgOpuxbtx3DFI4cqdQhnx
baDqMumZeQ6PFCRmyr/XPATVSxfWa/E3kTzkpAgOvwLVa5Yt7RmWSK5Tbnxw
+h2oZrPfHFj5jeT2jdQrluBAtS5VabWBhmQKFrmO/LgDqm+dZrjkF5B0xk6e
qn1BoDooVysZnYekrpw1PvFtAVRXym3NrdeRhMnyL+6GBVAzbg8M661Awnvk
/9rI2YOa9eiJk1eLkOBP4vHs9wBqzmt7dhndRQKBdy4YcE6AWpi2ulhmAuLZ
UOvpxBxBrfHml2eH3RBLfNb2n8FSoG7jSB4fE8Jm/pt6NrnbGtRd/PS6b+3A
lp5PHMt6egDUfRKkq2lM2EbU+cowfTyoJ71YjiqcAvbrendzfURAvUf2kYz3
G+CPmqz5QGEFDZdfAvvng0Dm4NABMzNP0PDZ2jIt8AHZz/lFvoqXQeOy2JT8
wRMgVyTEPKexCRq5Nm/+PLcDBeHmyrLMW6Dx1K3ikycFFFrMBWrQVdBoCr33
UtwUFP3Vdl3fZgYaY+UX4y8x3o0XYaY2tddAY7HV3VdLBpQdL+5plmoBTY7h
/Q7/CYHyXz4F+2eioKkuoK2EMYEqD5mdqHsHNE01JXbMLIFqWph27cIMaO6i
cMzmToGaUNJJjvLPoHkmcLiBpR/UmaOsHhMY+5eT3j141gXqZ/m7WF+EguaN
wrrEk68ZuN/hvAf3gGYuKjwvXAca+jf2VsXsBM2nA2lOLU9BI8FgRsWU4b9p
LgIuFIHGYObzABUR0OzlOquqdhc0Fe/sM+VNAM0fSi47B9JA85Siz0iWKmgu
WVgtJDC+3+N5s9VJA61tDvghsyug+YFqLNuRB1pi5+Qbp4JAc628eXnpMGip
x/EU3fEBLRnDLPaHPKBlmrt2w+4EaBm3KCYKrYPWrtrxwC1HhtyzY357D2gd
/vjp8BM70DrYSI6UpIPWmd9NZFcKaDny8QVeUwCtcLbHGgJmoLUPx3X6Vzdo
3XjX7szcBVoU36ZvVuGglZv+PX72OGjpNOqPDj8ArafHNmqH50CLXxY/9uwe
aDWpi068jwbN3/HfSnY0gdbHOX1xxMBdz5LAzWkOWt9f7LZ+XAyacYnvBK2O
gdZCtPtFRj+nuUvn6jm7ONBmt71SnNQFmuwzvfRXRqAtIpI1cPk4aNQMyZ7Z
KwjaKt+qtp+ZAw23Db5P3IdBm1DUbXIkGjS2nbwVvhwN2nS/idO2oqCerzBU
qpYE2k5mrLfNS0CdsMvebfI7aHuxSbdrmYNa83zOSYFp0L6Wvk+d6ziotir7
Xu7mB+2cYz6Oq3OgavFjT4TUM9AuU4uJm4wGlbLkor4bD0G7q65uvL0YlIPx
0oGrSqD9LeqTWK05KPX43dPemAftv7tn6EVdoKSm4Wi2xwV0+L8pFsXOgUJ9
RQYPxw3QUSiy6L8QDQpMA7dk942CjoGfI6eHCKOP0Hjo2CgFOgdZEz1pZiBr
I63e5IGBTqbqohpbNIidwyXHnWkGnaJZ3kMLIiCSF+pY+SIVdGrr1GO/F4FQ
R0Si6ucA0BnafeRX0zvg5yxmya95Aroyvi2FESLA4rXaGRv0AnQLajNVNoob
GCPPZd6QWdCtiqxwmDZHLFcD1AsftoNuy67OmC9diOPR271BW3yg++sr088X
c4hnNvX2p1dfQE84At9jIYNEc/2CF3lbQc/xwZ2UNQ+kGNIq7UUvB73jF5un
7NKQ0p5Hl77StUHP03aSmoeQstz5U//NMPYvLBn9o4shlcqegaa5LtALf3tk
bzYFqQYzp9facoFe7N2okj++SM3IwnW/iAfoZdDeH0lrQ+r5QicXdLtB757E
UvWvBaSxd/cmMZcb9B7OSPOZySGNla4rPCdWQa8643TTSDDSMl5Q7mq9AHr1
3jel8AVIqxu7VMYWDHotWHVg7HukfUzBSGLXMuh9GmdV01FHOt5cEcxPwkDv
v5fqEREOSOfn60y9tiHQ+3Fzz2BvJNJ1CSGIGLWB3vTJILxqOdJt3x41Ggyg
t2iccz1kEOmJFt2PvXUZ9Da4m352cSA9K7HFK0wHAMc2PAHy+kjPv6Uzz7oI
cNxVvLcDjiK9rALRKotngBOKN5xrTUB69flFzTc6ASd15PBuiWqk97XWWMyD
HXBKuMgHZ0aR3uqAp7BbJOC02Is2G3kQTmClrWN9EHAGA92OQqYIp8o3dFyF
Yd+sbPGphzvCEUSE9Q0Z+uRIqR11KQhHZh7t5voPcLscSCd31iOczbuSBwXc
gNuv4fnq+G+EszvfHSERCDjnzRsilWIIZztT0XLaGHAnPlb5bqMgnLVFdaAw
Ix6vh0Ptzr4IBy6Wk+JOgPO/xKJQloNwBrTKk37OgAvZoxbK1IZw8lvRNsXp
gItUtPu0fwHhuGMU9JbEABe/HKhTKIf05r5w3jvUCrjkjuzY1d1I7xNrbYY3
I97b9xpHbIOR3jOm+oHruwGXd37cNLcA6SX2FU9sTwFcMZ0ndf490juRJNit
Ug64p1L4ado60sNr5OQMNwGu5q8LLUsN6TFXTj4i2QEOvY64N30A6aZ778cX
SQHuvU/XvtQypFMQHeSSXga4flh49HMQ6ci2/ajwPw24YWFJdlMOpJ26v3nv
SjbgZl55PB8+irTcSrWvLDL4Wk5O4jdIQJqomi7nxPC3darSK6YaaYqEjyTv
nAd9Xh5maW0epF76LZFj8y3oi4yqBl0xRWrTjYY9HyRBX6batrvHHamprlyJ
q7kP+jpHsyIv1iOVeLGmc3l2oG/72OBXyzmkyCq1U2FfH+g7aHmXAkLyW8Do
BudA/2hxvu8LPiS36Djno8wB+ucKBFYeP0HSeSxKJ5IVQD85c44rcw4J3So4
VvJCBPQ/RT7R9Q5q+FijEVAX0wT6/239mv/Rgn2yTjTWE3sP+j/DZGuOi2J/
Kh+I95K0QH/5wg3igRpgriuvnlJWAQNxn7P7LVZAYJTZ1Z1RDw2OOGhd4AsF
RcFHBziLIsDgVM9Js4ROUCL8+qcTwAwGZ+1zmNilQfnQ6dLyDiUwCN/FFbdS
D6oxPyhPj90Dg9g2sm0AD6ilGxW+MY4Cg5vUS/x/joH6vdDdX/v7wSAPm8z6
zgSad+8/8Tt0CAyKXykcO2IPWqk/kz0usYNBhamzYl8eaEf8UNe27gKDZnx7
aScJdGlTZt9FY8Cgo4LZj5YCejzPzLetW4BBr66JIRoFvcCGxMFGhv4P9aL6
qijAGTXj7K0awWD64XCUbi/gboYKf1cNBIMlJTGrEiXA/Yg9MX05Ggw28+y5
lQJA37BtvOS/F4DfJhP7/u5r0I9Qrve4xgV43uyGW+JCoN8avcumThjwYmLL
TqmnwICz065l7ijg5dJ1ZXZWgwHl53jZpDLg1QXdR+M4wOBSfe4Pw/eAx928
W8jiAAZl2Nlaqj3gTXd+9g4tBIMBh4ZOsjHgSdd4dJf+gcHW/OW70b8Bv4uT
uuBHB7w8h1j5IT7A778aVvM7E/DmV6K1eSQAf5ilKuzUBOD3OVCtjusB/mT4
NHHYFPAnQv23tNgA77OhzOGcwJATL9L+PAR8wMQSt54l4P0CKird/gN86OdW
AfZZwPsum28vPgH46OZM0aECwHufSXMvYQd84pPT0k8dAX/8E+FxIAJ82h1T
xVgGD3u1Rr0zVwGfk8ClfrieEU9AKudOAuALgr7o6vsDXqEsod14HvClbmWG
nAweWAftfGKnAF9pf9n0P0bev20+vGjCiP+lxR54lggGz2XvgZAK4F9ryNHi
MTCIJ8fFd8oCvlNkdvfROTBw8FuYnzgP+F7Wpn34h2Ag86xmXcMT8EN/Ux13
OIH+qMBE3RFdwP9+a+hWhUDf2VFmyC0L8PPPOU5fY+ST1/HK1e+JgF/L7zvn
qgq4hkdsTx1MwZAr7OIl7iTACcQlnQ5tBUNBL5sro0TQqyJkG3woBEPJQ5Ix
zxdAb/+VDzXBVWCoqfcqxc0FdDnOKCdFxYGhgXRSpgkP6KjnVrEfCAZDsx3H
7vI0gTbl1UW3pAwwtBljLq5TA0238CTOIWkw9MqgNvIx+lFrg7lbtCgw9I8W
aflZAiq4xy8XeMbAMMT3V+fLI6AsOIo26hrBMMEmvt/jNaM/Dv7t1PEcDIs3
3s3UJ4Nkv9DOA4n8YDhx0kHGRwtb69VctuyPBSNPnPulVjfGvBKzuV9NHozO
LdmpmJ9Eikeu7bghUAxGF14Yvn/qjpRy+ndm0p+AUSyVXTnbE6nyCia9quQH
o4eO+d3nziLN2tIP8cd9wKhc+trFMV+k9flm+Q+ldjCqGj2v5OSHtKdPOP0s
cQWjNz6ki+QApMc6RBwb0gSjsfARRdEQhJsfVerdJQFGU5S2d4mhSN/dUSOD
NRKMFrY/CWYOQ/q9DYWkHS5AYE0N7/x9BRkUzPyJfsoDBC5HjwvHIxGeIyLi
VtoFIAhK75H/FIXwbuka/xRjgKBQKBPUEIMMeX+o7+pSBIKGD4c8Pg4ZHv27
6wkvCxD09aY7iuORYbGc5sr9O0AwWfwUJJOADP8c+6lQuQQEYt0rudREZKST
Xc28owwI1uEFHZxJyOg0Wq+/OwOEvZTEwLAbyOhePY13jyoQnLYHyM7dREbv
o2wV1A4B4XiXy1uPFGS0zsy8e6UNCJ6p5IAvaYigoJ7gO7wOBF9HTdm9txCB
9NdWJJURT7C0QHtLOiIctf5DJIwDIXxkNcAsExECtByW6uWAEPtwVOZJFiJE
Jz0PzdkEwg3v9nblbES4cTqBzmsDhAy9p+ezchAhrTo9d9gRCHcXb8vw3mWs
fecW/+UB4WHdlbboXERIusUxOsEFhPJwT/+VPESIkkv80dILhGqKvfTZ+4jg
L5D6+mUlEOq3E1q/FyCCi3f4/XZGfG+6ZP0dHyICpr2j2YCh/y51m9S7QkSQ
dqauueCB8OnQn1ZSETJaXM78GLsHCP9JffZ7XoKM2nc07rk2D4SxkXoprVJk
lJ7VE8AXB4Sphw9a8sqQ0dEnxqe8GfwteF/3EylHRvIHysi8T4Gwrhcoee0J
MvyaSiwpTAFj1sXDLUwVyDA9+ODEajMYc9VRfAOfIUNr/syvPw+CsSRF8M2x
aoS/e2fYSMEajBU518711iA8seLZjV4yGGu8+y5hXYsMvjXYiuy6BcamhyrO
GbxEBjv5oRBugrGT917xbY0Ipyui2M2498auAzY6+T+RXh5PY5K8EBh7WZEp
wI30eJj/TF0+AcaXFA3PBTsi7YrhPf4LQWCcMyT+ZnwGqQW+bZBZ/AvGD6wF
hq4KIVUBYnffIh8Ylz3nmpU3RcqFDuHXnziDcX3KppRTDFJ4+eV7bt9hMB62
GfV/K43EYbRf06kBjMdrhuLcSUhE/InyEx8TMJ5V6b3L4okEJvXW76hcAxMW
lpZ200rE+Tu1tWlGGUwU6x7JPtqFvVmaFFDOrQITD43znYkXQVLu0fm1d25g
ci7TZ5QxX8oct6rYvF8HJsEcp5Zfvwa5zre8xq4/wCRu1FFhgw8UV9tTb59M
A5OSLPOLZwpBQ+ov+/Hc92DyjNPwxvZO0Ez/XBqQeAxMXgTpFDyYA+0dbP1y
oZ5g0rlPrvurJegOxrXdsD4JJn92sKvYfQL9RPe/C6ruYLJ0YdNschUM1Jpi
DZMawGTzx/LeWDkwQFrP1ZzzwJS3cSK0wQfw34LFMcohMBXTHU1xSQFDDxao
Hj0LpnJ3hgqXa8BwfJqj2mEcTHEX3/XosYLREE0f690Fpia/WsY71YCw6/Q+
0t5sMCUdbNj0tANClUPO4BsmMLVprhViCwBjsalL29/dANP9uAr13CwwDuLa
dlYZganLvUeYOQLjzjQx24O3wPTkzoID/T/BRMrbWjnfD0x9Lt3xCuQGk1NB
rC20C2AaMJF+hR8HJoXZcZMb62Aa2qrWx8ng9du2Zo/aSjCNLnihw0QCUz47
UexGEpgmRtpGL3eAqdnR0cbwdjBNO/ZtaOYAmB7X3OxNDgDTHAt//Z9fwPRy
UfMu/ggwLZBki/96CkzT3+4YdGfoP/qXPvzpD5gWxRhV2yqD6bPP6oR3QQz5
Cdd13B1MXzx7kfR6C0xrnpwvXWTgaU62/fEyDkyfC7IsOTHi7zg7bF7JB6bl
Kxdi77iCac9u/9RHt8E013Udb/4STIc02CbzFcD02m57+b8Mve/bMohZJWB6
rra1SZkKppM/1DNTDMDUtszW82EYmM41vZiJZ/ynrOkaLpgApqu5drQIKiPP
phIHJnjBjCVs+E5wF5igEcVrE3FgtsPFf8HXAUyuqr+S6z0PZgIm7Ls8voEJ
WaaOz5cGZhIiGfePeYLxaufl2+yiYCa/oL7iwLhHpbApFuYKZrjHdoU0xju0
/up5cudDMDNJHN60uAaE7IlruyufghnR6/xBQyEgGCrSrj3dA2Z7lTNZlZTB
yEHMYG7XYzBzYtVwliwHw68s85oZ0WB2fPjlU0EjMDzuXCLqEgBmvtkjx1gY
/dOBhk/+a/pgFnzxfNXKBzBo5dSUsfoPzK4c4uCedQYDvIGOTBDD300Bjbph
b0afX1Vy//cHMHscFyBSnwQ69flzyTK3wey5O8eZalHQdhK96KBYCmYN5MzX
Zbmg+Tvv1lCGH5h1bb7yz3kKaqu2yiaqCMz+BHJ0hfSCQmuNpqTdEJgt7but
7H8E5LViE16OM+LZ1NMMPf0TZMUShM4IApjv/G2v4bgMYqEa/g8G2sBc2/V2
DEEC2PvPk6EiEMx97LQs5o8jvv6NN5zib8A8oPc9k8BOJJRtavzA+wWYh7mc
b9KrQ2JO/TVhxv/APMnzBe2sEJJtnUp5XMIK5k+ibOzG25CqUn3FmPM7MK/d
/od/WyBSG/d+FBmEgXnjzeQeFQWk8ZBbO/tGOph/vDNwyC0U6eyUnuhoPgzm
CzWex77qIX3LPW/Lav6A+QbGLb/+HzJg2rhV4XUfLNjfPB6TTEAG9c8GCl2+
g4XIx2VPxzFkqOHQrDepDRayTtkaF5KRYd8nx9O+EWChOmw5lW6JjMKveGzP
xsDCeDrGt4dRH1/ePHnVjxUsiAEa+nNUZLw39f7O4d1gYb36bpFvDhkPMwkR
3y2Dxb4Iv+e695CJR7HJA41ysHDhFL5otxuZjJ90jygeAwu3pFoznxVkeoLz
o76qJlj4CB/euPYQmfaey598VQ8WYQoFEe1MyOz+PE/ok0ywuFpMJ/8qQ2ab
nXxxj9fAIkl3ioPDGZnvGz7+6j4vWKRX32hT3obM7wlGUr9/A4t7FgYJ5Epk
/n2Xurm5MlgUNvftPuGKLGTPkYO2SYDFE5tLPBE8yGK/F1N5phtY1HyQeX/v
BbIIVx3klzMBi8ZDTSn1nsjifsZtmSRhsGj/6n7gP2Fk8arkyLS4FFh8PLVD
ZK0JWbzfX9BAZfA3+LtsQOIcshiMt/nrzQEW3/33ZptIIYsv5FT8ymew+P1v
8cihdmTxKUxdayAJLBbCb8sGBSGLFgMlWowTWGxwmI/cUkQW5ae2zz5OA0v2
xOH8Z++RRZJQt5xDPVjyCEaf+hiGLE7RBoTv3AZLkSw11VkNZIFn3oh4UAeW
snIdk7x9yHx1T8SkSB9YqhaeK9WJRuY1ZhLHhNbAUk9H8KwtDpmf+fgrNF8C
LI0rn+t5f0Xmkqrna+5fB0uimfNcwjVkhnY93uipBEvrxs3KYmNkduTATNq5
T2C5j34/qPUHMp1z/u6kJgWWzt00458pyDT8Qho5ngyW3l+uv1KcQiaRnmPW
BaVgGeCGCyfdRsb/wgTZVWLBMnTiE9GVhow9VHkC3ArA8vqy1Ju7jH5Ip2du
5OM5sEw/2Kd1OAcZXSNP86mMgOXdyuRUiUxkOKK+Ydw5D5aP/TmOpychfMg2
SeK0A1i+n5pZS2L0s6dwzmMWk2A5sKvkxO5ApJfiez47QxksR0pOtu/wRbqB
x7cMrs6A5ZzHQHqMO9Jc1RkRdfkGmOBoM+7yPqSUK+h688gcYFLEsExzW6Tw
PGcku6wZMKVcwuYqHcm1rbM+/6wLmOGR0s4gSyRefe/3UV0VwBz60z3OaiJW
/OoUb1koYLe7Tt85ygai5rFHfhmkAXZfW4lNcgsk7Q/Tfvl/Aazk2levgVWQ
PTq49LKmALAX1vuND/4FxWclGZWfegH78tq8x/YLaEbFfPg3JAXYD4VlU64+
0Pa8/Oz+xARg0xFPc9s/MuZrNwXPA58A28RUzlLbABfoHdqydgCA9z9OtruD
gB/jmf+ZBQBC3KcIG/1g+Izf8x1TBoCYWZP34U9gFHpN27ZdDUAuK/SjxHsg
bGww9//sBVBqH2S/2AXGVdEbcvl5AGorBOP+DjBxL7Bcnl8GwB2avZfeAqaV
gya2PtcADGPtPi6+Zrz7SVKt7dIAJtWlHAcaweyXYO2gqxyAxc/tJs/qwTzQ
EoTVfwOQhN3PCLwE87XRrnrXYwA0SnOuXx1YhPRHFFR9ArAJkOt5XwMWs//C
vB3IAPs+DpkmPQPLNpUDtoQSAIc6dp7sE4DJvb8dnH0KwDlPZ7RIADB/gvOE
fB3A0TjH6spGwF6SS4q82ABOnItMaPRl8DS8r1PgDoC7Q+nRLlkAqfXpclte
AC+Lz/qDXQBGDVYT45wAZ5WZOH6FAex+TBIregvgz60+uKDFsPum80MPI77A
+f2PmYYAfNYbT7jsALg4GBa1MwHggt33SvkagLDGwkMSJgz5/PtGfTxARNEH
TZVxgCv446Ym9wGu3ljdMmDk4XLjD899zwDiLyj1AI1h5+jfm+PbAa4ftSvc
vQjgu2MmTdkYIJkafMmpgIGjhfhKOwfgltb9Pe77AfamGEux1QLcFuxUPM/C
KEx+wg+iSQA5q4vL4U8BFN15xS0CAHJHZTsSjwNwBNqU4fwACtqt793mBazD
qn6z0gug6Mn58w/qAYuYKc4SvQVQmnHHquIMYHp/icMxUwBPLrdKNjDueb+T
PY2fFaDy1N+Zjg6wDDYPEpBj5LPGVqK5PwQs+crUtzo3AJDkWe/ZfrDQTNLk
K1wFeM2SiW3Ggnm5js8+1+8ArRNNQlxGYK7+UkK81xegu0b4pVIamHELzKXF
Ms5Tzz3sJo4MpufFN10NBwH6Yk6ftJgDk54EzVxGHwPfDrziPmQPxhEG32tr
PgP8mT15OIEbDFN/flXuZMQ315+kl/4C8G9P7XK53Ayw1FDDlu8FBms3GwQv
MPKwmcRV+rIN9O1KWco4tYDIo1GxPhMN2iHvDxr9uwNEAf4v79cNQPOOv3VU
aRwQhVc4HnCOgnrN/Z5upm1AlG51tlUAUB48H/LztDAQtU8y3zmwDpJPFdiL
ohOBuPuOvUVdQMNSFe6RmAQFiPYDLK3OVYgtit3sw511IB4UqrJfXUI7SzSZ
G//zBOKRRImTZheR6KKGU8c9ASCeDRlLeHkZKa3GxrOdtQGif3WG0OEGpKon
ems0RxeIQXPWdzaYkPpxYwGViUYghp8uf2oRibTLHtG3H2oC4k3H4L76WKS/
JDW6qswLxLQ0TdejbchgLiVK3CsciJnd/01u7UD4ifELnecdgJhnRdrEGPN2
m0ij9ZEJID6IXIz99g4Ryt323yUoA7G4voj/Cg8yTgr+6nbQG4gVRjuV0E1k
avqvWPJVGhCr/RrKj39AZhxj8pkrYkCsK/M3ZhZAZh3Z6szajP1mpb5dxFvI
wjJygnJeBIitx+N7Rz4jiymKpsnFHUDsyDE/GimGLJPndAuyGfh7BfP8mrIQ
9tqWP5V7Hoj9e/avnRhCoGb7p/qRKBC/XOO4yiqFwGtnRYL9fiAOt9Ty5B9B
ULiXZC2nAMQfLN6Z5LsIhtmpVytLgDhhKSP//RsiConmex40AeL0xfePouUQ
kXwh7hjlPhBnq6IMlU4g4llh78Avr4C4OGtY/zofEVO/C9q/XQXiqtY4/eQY
Ilb2ZL0begLETc+sj+wqiPh+KJDKeMdJLAW2Lg88EPHXX/9zyoJA4vi29YNa
hIir2xu/VSsBiUuy4uyPCUTaJruk7V0FJN5DJ//FaCASr/a2R9d6gSSYKhqp
4o1IAloOr+N5gSTa9ZarpRSR+CTKZvQPAklqR+gt92lE4lwiWyb3A0mOpiu7
TQcR1+trrw35A0kpYqSo0BcRfwfKm/y6CyS1V2n6Vk8R8ZPkv+TeBSBprdBe
/JpDxNrnmjUxpUDC4VeocXhEvL1byLx3D5AMfR91qwUi4vmRYEuXW0AyKT3q
2FaNiNbh8dosdkCyGOcb9VxGRAndUfkDPkAiKTb7bDdG8GPjahdHFpBoxwIX
iy8iKF34wsV6E0g22Wrh1nUIzimWr8YeApLd5yHOiTUEWrdV28Y/A2m/wPWU
BHOEve1I570zCCSX+LkHbxuQZUpWIdvIEpCOhfm9F6tAFgtPVNxVeoDk5vt3
1b0AWezR+ZT7exhI3odm9rAkILPpzYqoUhsgXVL+/c/0ADLu831ouHIWSOHi
3gpxVsiY2UZ5TTUMSFHck7s/myKC0kRNaMoYkBLmx/P8ZZGhs/WniV0Mf1mN
P2yKJxEuKn4lkrUQSHerTgYsf0F6EdFn3yzyAel+0fd71G6ks8SXcUTNCkgl
N0bmRyqRRrPt0+VUAyDVHfl6RzwcKXA+6iAYegJpYKVvJl4IawqcKihu+QCk
/6YPifdxYAuzEvSY53VAGhn+TFFaAdYOIV42RVMgTbT2ZqKvIGgYo+Br/wVI
K7c+EP8Vg8KnJxdEjzYAaSPe3oeWA8pSz/efPCUDZObQ7vS0JFA9Fvve2ZAZ
yNvd3v3WCwDNz/QvS7u5gSyOe5vmaQn65md/+U9mAVla2bq+GgcGVsc6HAjn
gCwv1jbBpgR4O87qvuR6IKtttVrkbgcj20se9XseANn4XfPPvl4w3Tl9Ln5v
EpDNG8n8yox6P5OX15XYAWSobDI7XwtmHdK8eeGyQKZno5u8d8HibAKzjU85
kHffwOqOJIOlEW9YVQtD3z6yfuxRNFguRZMy70QC2fH0KxOr0wB6deW+Ff1A
Pvz0jbjaH4DEGprovWwgH1/pXNnhDzAmkzlifgbIp4i9/b+XgWj0MeIArQfI
p+O/1LwLBWJ0nRrH3b9APvNhLPMxMxDfveLKmx0Hsr/4VPDNGCDxv+aMx20B
Och1wdGfC0j2tcelLnsAOaR43Xg/45wmxDXcJggA+fIcm5ihMJAaZGlpwgz+
oky5/okwzvUf7+tc5seAHBsp2PePwbvYkWIepwwgX3sr+Xwgn8HLL4PVNRqQ
bwooZrxQA7LL2p5dgXuAnOaseSGnFMiBSUVLL4WBnHnf4NBlHJDjM8KPNQ8D
OWfSjHCsmvF9Z0EPvziQ8/TJokQzIOdORibTGHw9CLFZVkBALlCXPJX7BcjF
Tfv62CgMvZadrZ4MPOU7nKt/tAP5dsOtq+lNQK7YdyK91Q7IicKJa1OFQK7O
8goq+gjk4PYzHzgigFw36u+QcAjIx77uNZ9hA3KDRoiRN8Mu0XGmb/E6kJv9
I0VsXRnnBMudvdsN5Na6+CWdn0Caz3I6V8743smS/JnPC0iv/UsMT18B8nub
21WzM0C60VMvePADkHtT8m71BADp4NtD2GA0kPsHiwMr/wFJ5GSn067DQB7x
qjUMZgFibEtgYeRjIP+oaBR2igWicYXkG+4aIE+sti2acTPynRB8/hYj3rmE
/spNYQBt53dheWlAXvo4nPYtC7BbHPvn7xoDeU1iPKBRBizfzM5q/x0FCmvJ
P3y0Glhwh1yyEzsGlG3zTEKnysBcISncUvQSULjNti1YMeZ4Pc3AqDN4oAh1
iFbuMAcTgx3vo/KGgaL8m2Bwcw/gv+nePhgRCxQNA0zQrxcMaq0Vy1JXgKJz
iTa/3xH0r5u3iFi+AAqBy+GZyAnQU2K5lnykBSh0zSD9nCBQ0TZoBekFoHh5
V+GKcrB++jnnzZCfQDl7r81toK3hT3vToShza6D49wyl71hALL4m56Sdx4By
yZx59cwuJDjvdp65OxMoidx2zbhVpJSt+JDv0RBQboLropsKUjXpFDJUXgJK
WkCgato+pN4jsV8xjgSUnC/Z15ZKkM5cw6L5r0GglJWOH3jhhPCnRV1Dwhj6
T4fXYqaikWHm5oju62igVAvz1Eo/QUbNnsWv6YVAqQ8zlL7CiUw4/KSaa/WB
0vSUvucpHpnKeN2qazsElJYfLhGjx5GZbo7iq8hkoHTbRvyk1CAL83PNI+QK
oPRE3BILHEOWhJCiD+sFQOmrKrIp5EOYxo3zP/fwAGVYuuvxdg8El76dzrSY
AcrY3pER0xQE48Uh0ceKgDJ+dVHQux4R7edkH4cwA+XvH8kLXSKIJHj1fsHc
A6AsKugUb5EQ6Uz6l7E3/wFlxYH4Re8sIjU9C7TVzwfKRsJBHtcsRBZo/Ari
D4DKXO8JKS2IfKT4ZxHKBSr73CX/5jlEzj/QaEH9AtQdKkkFizKI/L2M67jk
Z6DyOOf1qdggiszdnnthF4AqkFS1/VAgohwQvff+RwpQRZrazOJyESWaw7/l
cT1QJZaGztR2Ikq5y4e7iplAldX4c2/yH6L0bG8roHsCVfEY80cpJUSZY53p
XssAqmqqMJutPaJyYWe7R5iBqtmqZnQ5FFFlnjGVjDoDVXfNzPNxEaJqOSzN
8SUAFa9rlzXci6h4ZfPIfjpQjd1c3wkwIaqR+KH+29+Bap4RsEXWQlR9PZ+p
HjxQoSMOF+CIqGqnLR+oDwOVspXt9iAKUcVe63Y1M/iwNii/9bkcUVnJ5Ich
TEC19Whs2zaIKL8mpafTGfj2ZveumnAgSks9S8KPNKAe7B7X8tJHlHtvemu4
YoDqzLp2NPsoopzfIfxCcxaoR415bnYmIAqkfdfmWQLqCR/5po1qROH0W+gU
zAeqey5+UWcUkd+W3/5yxA2oXr101eM8iBzrVC38tg6o5zhdnJJNEdkyql7O
DQH1gm/Eq/lkRMq5K/c+6DVQLx12vfmRkV/rvtkpS0eghtOJbk93I+JcYnku
HwWosXLM289xIKJR1fX9ywx717iGv9iOIfi4/8Wz9wDUpGX0WKsRwWn0gyf+
LFDTu68cmAxFmFh33colF6BmvTiu2u6ELHWLZNV4U4F6txBbLTJi9Ke//oSJ
aQH14eWt3FOzyMwqtISn3B+o1TqXf4+4I8K2C89fqzD4rZM4Wo8oyPDX6kf9
godAreewTL4nj/BN748n+zD8v/lvk3D4C9L3jLn1KL0bqJ+uh0X270Uay+ON
n9Z8gbowFSrebY441Q+9I23bAdR//S5T5eINqwPyHlJqDPzrr80aEpcaPlHf
xKyoxQGNLXvtlM1TYJn46Jf0RQ5oQrtCnrSogMy/D64tRjigiRGcox6wgYLq
reOdv8eAJqVo6hA1AkrdDmZano5AU1xdWSfmgIYA8+6LVxjjtkHJRatX/KCv
LjQ69CIdaIR0J4nsP2DgydfuunkBaGaRxtMhnYC//wENPNAGGtnpX6pxDBB2
nM1yqMsF2v7tF74+Wwez2yP7fBx+Ac1h8dDTlAHGfPfO4OCgDtCcRwjRftVg
8cqA+nAjHmgnapY1dP0Ae+P6SanHD2j+nkGBJT+BWK/ShPDuQAsq+rop7QAk
g/XyFSkWoIVMWMXceAOkgv7p01gl0KK8xDICCoB8QcYzb2MVaLElEbK/hBh1
ho7Ls3IF2rXJiSKnKKAYrAQ7dHgALc27rtbyBFAGo37/G+8DWmapIvHJR6Aq
qz8NujkJtJypa28ViUA9/dcwceE80PK0FvbdegLUosZ2AmUaaA/OHB7ilAPq
SMKphKbrQCsue+MWcpPBO6GC9Y8e0Mr+aP+e2mJM7LU7XAaZgFahkx5w7CzQ
3LeivjdnAa367Ob6h69Ai9mYO0WpAFrdY4+rFDug5RZNXU1g6NfPvN9Z/Qpo
z5a6SxT5gNasZ5yurgU09K35qBwDb6tvnkx2DkMeeWnksgG0jqfbC3m4GWuf
ywbfe4DWPeuve+US0Bq3381/NgK0Xtzg8zkGrkr81ZB1Rr76/clwypnh789Z
XXdBoH2peNTW95bBm6nnjvFHQBueF9prYwI0D+mDq9+XgfbDIHTgZREDz53p
wWMMXBPnf5zQFQOa4OvnBP8fQJuutJ3MiwXqcM721KVCoM0uVJ8XZNz7Qr0d
8l+uAm3JUGYtxh2oHklFa6kMf6uBsVH/PgFVvvXOgNh9oG1W/eX2pgDl09RJ
UvAIWLEsOab9VwmUaD4CZL8CK64L6g+aUoDcVXKDkpULVrzPU3QMWYDsbS8h
wscOVoLLq9WFfkBm2fdkbUEWrKSCO1oT7YEk+82YfnwUrORq8Xs2ERAfPsA6
9GLBSmklp9+PMSergV9tXwNYaYecmXDgAZAKP3wnPxOsLEP5uGQ7wSzrKNdB
6ziwIr0MTk0xB9MjNHevystgRVsfkWJ7BCZi1OuF4VZgtSesQmsiAYwuzOwI
NUoBq+PhB+ye0UFvnNBrY1UIVpGRmSm01yCY2mi9be93sIoJeffC/QdwXS+v
dX1fB1YJ51nGYjmwrY/W/pt/FsAqxe2MUSu9YfrjJZTPRgWr+xTikFUnkhRX
NDlBZOBrYv+tRO9B+ipaPa4cDHtvNuVsPReQQVSL31ufs2DVvnQwKF4I4f9j
F7mStxOsPvxsaGt3QIQI0WHm3wz8I61pZ6wHkXnMsdq2/H6w+tHQnn56DVk8
/5Uv558FVhPPNxsSpJDlaAQ10E0QrGaLTvO/PYrg5n/PS4Rygc4cb1FtM4pI
ufjNf5WGQGeP8P/mzYrI4taNb7TUgb79YhHnNSVEvv6Bm3PkDdD5vQScO9wR
xbPBejYfAV34hFXU71hE6ZoW265pCXRx59AyLkZ905PEuZCfAF3e5ufWrklE
/S6wbukuDnRlspSaDxei4cvk/Fq8gK5utndvohaiXRmPqPIdArq2QUxIqS2i
tT5J9F9bBDpO80V+51lkxTm7OTcyC3RDxb+dUzeQFSXrz/XEZ0A3kVJe4n6C
rEKyOuMNNoFuIeQiq/UBWZWMeuVb2gCdyH2TvnsOWX1y2yJP+AKdyvbG74wg
sloVVHcRWgU6fX016zoe0cXG5n9ImwN996Juc9lBRMd1D4h0lALdfvrk1Lsg
RKd0vNENqgX6gR9ZwtMZiL73o9jfiH1Ad/yvG9tZgxjyUe2VcKAf/szmqT2A
6E6T7+hu/wH9eJdJsu0qoh9YtpIWsgP6yZazdWclEd2G5cgVQWGge9bnf08y
R3QT7veadbZA96ke4C4/gugKYoMZnweB7vuYx7DrMqKzaxj88poBekAh+eif
e8hqlMYTHB4F9OB7wXE8CFnVnhcVYTkI9NCMsqc6w8gqofZ8x5sDQL9yY3Rw
DzOyclBoOtxxEujRAYoH69uQldT0up3nT6DHObp90LmJaF+1lmpju4CeaF6w
+64jot2eev9rrQjoN+XG2njkEM3ebN2KZwPoaezK5LBxRGPWMHFb3wJ6xsSp
+ukniFralpbRmQX0e09/Vr0DRFk4bnYpRQPo+emqOAtORLkZ8S9uXQ/ohSEe
paXvEUW1oCyjksHHY9J4fuJxRLba5XI2uQ/o9T2TybuuIKLd/Jemi4z8N9Vo
cr+gI3gz2fR15zjQW3K84zT5EBi/El2x2Qn0rpNT4TtykaXS7zjcgT1A/2/x
j087QiYGcywBTox8b4jO0elMSMsz/35Z1y+wZlrXb37ehtTDQ9jSnBTBmm34
PKZ6E6ncOHJ3Pl0KrLmLFoy2ySG5OzyLNKl5sJYyWVJsAcTCy46+Ud3B2sxl
ZYtyBRRHRMw5j/aDNQamIZV0UBnbzXMe6wNrslLIkhIfqH9nxZfULoO1zdTa
NGsu6L4Xr2ERtQdr57CNwSYEhiWpPZPZu8D66AlLB/04IPDtfdppeQGsT9Au
f7hvD8Z+HO4vimbB2otnqy1iGMwUmNqr9YPB+mIuczWRifG+ZTvEVI2AdVj/
218UZ4DmOj/Ho5/BOpI/TcyqEojuJ2Urv3uCdUKUSoidJ5Du5CxFPJED66QX
M4/2MuZI3EeF7mtcYJ2yUPPloBSQ0Ve2o8P/q7i647F8v7CGoigRvpWVJCTZ
IePY3r0HoZKZyCYjoiJUioiySiWjJISiO0nRklUh2SQzlO33/P56Pud93ue+
zznXdc65jj7gbjkTDI98AbNPLa0dXvcAl5m5/fRRTCeRvLp2qhwE3N2vP7Ic
MJ1YZ94Hah6AyxW6/8WpGyx0Vc3jOGzAFeC81rrpgcX9LTwX78wCrihSV+NU
ElgKVJeKCGUCruT5WsfT42Dpsad4+Wst4KqUk+oC7oDVzpvugtFnAffKye7f
mSWwcvEN1y6SB9ybjH0KYWywKkzNuldFBlx926R1BNZXRmf5lcQuAu7T1orY
85sAt9f7C/+ZO4Brsop8Hu0IOPbyrDJkAa7tHGE0thpw5y7Z1komAK69UlTy
yn+Au8fb5R6PA1zXny7yNV/sXhezF0fVAde3/0F40ifsu7v0I1M/ADfk6FV0
UwFw/U/ehDwVBdzvdN2eW5HYM97mQxcP4Cba1glndGK2yufB4ycBN7Plg+kd
beyc5AGJXZ8BN2d5w+8edm9LrX1d5TbALUXY38sdAVx1Be/iYx7A81Tsaysw
A1x2UG5Jz2fAr5+a2vg4A8OVf4fL9xnA8ytV6hTPAY7moyLAsQK84IkotzI6
4KSqqq97lAF+221iWgXWp/r/3XnneAzwoq2i76s2gFXOgcdFyAXwOwW7ltAx
rC+dLsEJ7AW8lEXugdeVYCX42b9G5D3gZcO97d+KgmX5sXyloLOAly/Xu9rg
BZa2OnPxdwMArzS1Dn3E9MT86V/ncKaA13BIlm05CxYyx83/Qj7gD906yvj6
DczzmGLbJqYBf7hF4XyHOpiriJmd8MP8NzOvHOzB9uI9l5VfGEYD3ursefEB
ANMbMe5/N0sCnviMZDWcBqZrutcctMP8YSn8zJsgg3GDKfPmvk2AdxZY77n0
DAwNRBNzhFMBf9LsYxaPMOg37rTO0NYAvGdY8pd1p+CwTfbN7+JNgA+YUNTY
JAM6nM/DYoZHAR/dRPonHgNqK6wpn3MPAR9X0/fuXRKo+rNsZh84Af7q0zNp
ZzLhwOdXg3xXCwCfknTPoKMM9kVq3T2qh533gL10PnMARA+LXF7SAMDXdeQL
K5ggaXMH/K27yoBv+AB938lIdtDW3zaNH/CfXrSVxlojeXnntvVpWPxtGWu5
o15I+eap3KrKj4AfPGadWZSJNFNkWhONa4DAO8B3QGcJgeSD35mZrUDgb01f
GeFDUL/Jq/diCRAE6zQab4kgY6+4+I5ra4Ag+uCo77ISMnlquveX5kEg7EiZ
NX+kjUzJCk3XhruAIBkTJ37UBJn2x12iXokGwl63sspX1tg+qPZ6NiAICIo2
xHgfR2Qep9yrFLQVCAfwvfZ7vJDFlu005mldIGgpb1lzIQZZrpczCjD2AoKu
xN1m7SRkGSg4pPHPBggGgro5Q9j86Xc29rPWBoLZuJMVrgxZFU4/DsJ9AYJV
1+KOhRqE458JtoyWBwLxc8Lv/I8Id3TRV91iExCoSL7K9hvCPZ6avxXlBgRm
0Yurgv0IN1/zs+V7IBC42fRj1ZMIb2DjVaSXAgTba8Pqp5cQPvi+37Pb2HnH
Is+u382H8E+SD/GrxQPB0VektUkE4Xt3XmobjwWC64mHD6KkEEFgb0OMlDgQ
TjGNzmgqIcLB/IGQya9A8DJrxQ9oIwLxjrX78igQ/LTcJZJNEOEEj57H2w4g
BMnzjFuSEcGnWvO6pxAQQsWSX85ZI0JI25U974uBELFR+dpDR0Q4a6541tYQ
CFH/ak7YeCFC8MaL0eyNQIjR7x7J3IIIHv3D2s/zgRB/btW7rwARrH8/e7zh
HhAS3krOK+ARwVBaT1IM8+eGgH7EqSFE2Hl+qvnlHyCk0o5sfHIe4Sfk0t1q
vwMhPfnMlb+yCP+CT1tj6BkQsjtuiukhhD93eHwXYRYI92XK0sPtEd7wk3Lj
jQUg5Dm1yr1eQriZz/G2jhiej/KmC/jSEO4uvVXwtywQiieFNUg6CIc/Nfeu
IAIIz7RUK6+1IqsRLcFi7x1AeB5MMW7zQVaRtVYm3zG8Xr70qN8lhKy2a82U
bcDOe4fL+5pDRJayOtLhMk+A8OFKvf3wCLLI5Her1IsEQmPz0OCBGGQhalhg
My4ChO/2cjNlr5HZ+CkVxfLfQBjxydxWr4dMuLaKn/xeAGH8WVWq4DdknPPO
zuO/YSD8WeqUoQcg+D17zDRMEwiL0TtUOp4gw7aXjTnRlkAUuJVIGFdAOq4t
46SjXUAU6n7SrF6HtCtiQ3CLCIiiexttAh2R1jrjkGWxbCBKFgm68WQitajs
gqGBcCCq1EZfFBFDcvEKJ7vePwYidSwE6awH4V+mGw/u+gFElnqaZegd2Om9
2uWgPg9E68DyT68AZBae12WzXwPRYc3sD3wIKHivenge0geir9jpBds/oBEz
Fjhy6AsQA49cOZedAFq0HPE1EWJADMkq5BtUgUPbP5vUkhhAPK80In76JOjF
hCgYPDAB4g0jR81zPQBxud6so3eBmOp1ZYuYPBhTiG+ViohATM9+NpR3Eky2
uLqhv++BeH/95rSmGTA9e9CY2hcLxDwtLT8XXTBT8QkMkT4OxEfOR0mLZ8Hs
u91ORa0CIJa9e7pGjg8spFy+1HL/ALFyvrO9nAQW5fu1+dP+AfHl/g0lRGzP
IXS+HKZi+Xx72cbFfxemWx1sq+5oAvF99Xljfmx+dA8WT86GAPHzxKOd6TmY
jqn4sK9bFYjf6Gs+1qkAXhcRbxufA2Jn1P4HNr6Azyi2joz3BGJ3CStivBzw
S17RX0QXgNg/EG4TuQQEete/eJdlIP4Se6gpbozxuu/1K3wtEMcsmwXzLwLh
l8smnf5QIE4FLQ0ZNQBRkf4n2+goEGfz5FHLViAeTyxV2E4F4nwHNc2VCcTr
4lkXusqBuCIQ7LuUisX5WTrQuRdIaw1ySAlYXB0FVTmi9UDa4Plp315ZIM7c
2z9x5TaQNmXO8VS4AIn3sZmWejqQtnzZ3U4qwJ61AqdsLwJJZC3hac8kkLZ2
VWjih4AkruF/OUALSHxLj+u+1wJpl2Omy6ZgIC5IRtPYekCSvlEPGS+B2GfK
X9wjD6Q9ddM7NdYDsdZbI4tnO5D2zUlMv7XCcH2kuV8+EEjKihYfj1wG4um1
7sX77wBJ1cbr/kQTEHWCTqp+PAMkzbi0iPNiQFiQGJ27xAaSzotam/+OAOHp
SscnIAJJf2xcoyALCM4HzT0tNwHJWPo/QRgAgtCrI4F5XCCZU40HW5UA/7TB
42U6Fh/unDtyOw14yvGBLWoPgUQqvpG6XILplWwD89s+QKL1vfS9Ng84r7sr
s1FtQGJv/0WSx/a6v9HlRwZfAsk+0ICH/BYsx3x0q8ew8xxynb/3CYClfdV0
Q7IUkJy/JzwNpIJFvV9gw9F5IJ0+3O+c2Q7mccg5pXcYSBE8cR8mx8HkXfzz
L8LKQDqvVnr/ggaY8LcT/Z/nAinG4WfEjiAwNl+yv1WzAUgJbzQ0TNaA0VHZ
XYktmkDKvtSemrgddG5L5BdXcoB0z+eLSOsm0P77+Hw0bz+QHh55e0WcB7QI
LG+X0xJAenKgJDJtDNT6PYsom7YCCX254n6nDvbW2G0/thoLpO4dJgbFQUhg
WLKx0voNkPrX6jyb8USi1WdSN1RcAdLQ74Pq2o5Ikjf1Y+S/XUCaqJKQr6Sh
va8iYkydR4C0euzv1holpL42QOZZfxqQpXIf9nz5gYx8vgTX3+0Gsuy1LFuR
FgSRMS9PGH8HsnxwchurARlbjhxp7ToDZBViVMP3MmRSVxx5I+EvkNW1gs13
FSDT8OcO7aPYedpSXi/t7iIzTXzWqfFJIBtM2j3tSUDmVwnfSAI9QDb+zlTZ
cxFZaLkekb61HsjmNfhcp1Bk0XbsOKVAGMikpEO3f7khKz6zr4LMk0CmhamI
7z+GrG4O0F5nFQKZ5Sx3zYONcHvqg1Z0KEC209l2YcoE4fc1c/K+rAD5+G4+
Hg0dhM96Vt8bLAtkJ/6VYH8VRBCx8zw3bw5k1z8zM8/kECH8gf4VtVNAPtXx
23N+FyIMnHmorxwPZK/anl+HhRHRrPLR7zc3gOxX+O1EGB8iptOa69pjgRyU
/OlH9QoiTiiorrNmAjk0/A2XZwaR9BR8665g+Yhwfd5kMoJIZw1Hc3WygHye
Vkw8341Iz61jm3+rAjlGL7eurg2RplwG3obFATl+T6Yx30dEljkChbrngZwg
cOM5vhaRreSvUB+5AzlxNl4rvhKRXav9CnccAHJKV+TjT0WIHLmDut3DGci3
3p5RErqPyEkHtcb3RAA5a/2c9aAKImdezq4Zwd7nmAReev4Mke/QC30E7gM5
N/xvxTVA5NshqlvHc4FcUOX/y/kdIl/ZcMp53h/IRQuzO/SpiBzwd9vXYRcg
l+r44bZ9R2QOWT/OFwfkCv/poCEHRD4o6jcrNgvkqqc+uS+weFeYj+5PYPi8
mpz6dt0Hkd6IWwTUIyDXqXjzuSwiUtTJ1ZnqGiA3uE/qGJxHJN1jazUGM4D8
6eFpVxEBRBziax5owfxpGhxPGU5CxPhgdn2DA5C/ynm8rZZARMX3NV6V34D8
M/PUPrcDmB4KeM6V2Avkvs7fHMMyhG/apOyfQgPy8M6T0dsNEZ4yZbRmvyOQ
J2+4Dr4kI5yWhcddm2wgzzQNiyW1Iavbq3PH004AeV7IxeLkUWS5fHesAU8G
ypo4p/uimL7M4+bTcMJA4X3X3zoyh8z/vlGW1FQCyqYNjrzoHDLXb/ZSnnkB
FOFzDk7u15FpWTY3ykkCKHsCj8q9KkHgPOfoePEXUPaVdDFT9JGRQFnpDKQD
Zf8fu/On3iADE8vdsZX3gaLpcaRfvA3pJr4eHX9jBBTzE9y7Hv+QWld6rvGH
TUBxodBld+q9nPux31fgHB9Q3OO/0CZqjLrbG6Oih1hAOd1APfeGAOt/klx+
yqwDSpA5ucfLFnaJfOsfNGsHyqXDhKy6s6CyPn6g4sYWoOTvM5f2eQWGuenZ
ReJ+QHkskTAxuwBwsOG8788ooDzd1onOaILxxgs1w0czgFK55Hc8PBdM8vrP
+YzFA6V6CusdvWAaIL0/x+s7UGqGBNZelAAz/befxR9idsOXu3fjE8D8+e03
stRnQPlUN+G3FdvHfF2bUgr/AqXpxWGzxPVgubfX5XDpVaC0328aSA0Cq+D9
8viYCaB03ZYqkygG3K4cqbEHo0DpvXbyYuYo4J5JUVe3fgbKSOjaffexvbHj
jFfylTVAGfcmzSmmYbp6623VvASg/HFOfVfQAoTBbQn+PSeB8vfIQKrqFmz+
2n3UW98ClAWamttTbJ61tpwmj2L5WLEI09OOBJIpR6cq0QeoayT7L9h2YX25
/mZqxy2g8oqosrr/w/qKiJPJphtA3SjYZri7FMhPKulKnbZA5ecLlT9BB/LC
RO/ZTUtA3bxOdksOFod+FunSYgtQBZbf/h3E8hZQkd5HVgbqljmPnwqKQHm4
v8xofgWoQtMib93qgNI8zPqJ6U2q8FjF43wHzO8+iYjoIaBuHz6aMrr6/3vq
JsTCgCrWxxuhchv7X2msXd8HoP73I9/VSwd7+kU+twoA6s5vNOqTVuxpShW6
aARUiaZ/OtNYXP/JXBJZ9xKoUh/Td2ttxb7f/LzCG/u/zDtT/oACoPLxeiQd
qwWqbM3wVDkOKDNSh1qoIUCVq7ryfX4QKI3swP2rcUCVL9esOYzxJKfSm3nL
FKgKxe15YTJA8ab/LrC+CFSlwojr1VVA0VZKkbiYB1TlXPkQHhsgT5MF/0iH
AlXlzocTxv+wPvT+i8Gr70BVTfchRCUBmV1i/jwEi0f95n8ab9SAtLyjyFTq
JFA1r1dLbPgEpNtCaq++koGqfdlxvZU7kDQKa6om/wBVJ4Z/NJYP0yubVJye
4YGqH8aqEjQBwmeX6l/1WB4MAxfvkX8CAZ/tePeaB1DBJ/tyQijgX276XjMv
BFQzlzF7kTLAJU79l7V5DqgWDokWLAZYzTxdaEzG8mJlp6uSPAlWFPUPQ4Hv
gEqkn1/dqQQWf9bMX/BVByrTQCJLJgNMp2Odv3li97EPvFOL3QKmSu28lUIY
P7hSvjXT4WBiF3A7VHECqEdWGwbqjgGUMn8s2r0C6omaM/tPyYLeSYU/nzfX
A9XXsrXs2X2Qjz8m/cId44+/zjmr3WIgm94dMsErBtRAReXvsdEgyZS9adfo
DtSQTVFLdq6w6dvQza/FJUCN/Khusk4JCSdQXiXjDIF6nX7lI/kR0nS+slkx
EuNJkqmefbkU0qbKNmkNY3xM1hiY3H0V6Wj+oqRU5wA1TdRAeMYLHR43Iugt
Yfdlf/3NTVNHxpd+/iDkU4B6913yyLo7yMTJQlwjFsPzXoVJiIcIMtWPLaXq
6AH1YVpqhtEMMvvR49oqPg3UJ3aWfQNlyHLQbjhZbSNQn5Km/SnyyOoWntax
fBCopYaZG8pTsP3uRnbfwUmgVkj/VYwLQviUzP7emwZAfS6UXTkzjAhagnnZ
BUVArVpDItpj++0HHSHfjRVARb05p9X0sPlxcF7ffxyoNc1UnrQ8RDr5rMUx
pxmota8Xr6/fhUhD3tsk9mH8qCt5sMcjHpHt9J+Lju4G6rt79JK2JUR+vxzU
6D8L1IYbKxZwClE0Uq53bxkD6oeLD78+7ESUxMmFb4KyQP0UyHITISLK6BTt
i/cAUBtdeRZCqxBVGv5ZZGH13BQ5Ofj4L6JawtuWM9JAbUnvbupTRdSTb+ka
EyNAbStvfCl2ElEv1ae7vMDq+lszysflIGqOwXhMzg+gto8XpYR2IWrlrvfv
aE+A+oM/K6pIHFHfH1nd9bIMqD/lEk73URH169zNeLdCoPYYRdiKxSLqz9HJ
g8EiQO2z8bLC1SJqn9aDmqM2QB3wP6YZuoyoPY35o7pdQB1KoMoUaSNqR5XW
nqeZQP2VDwJ9XojauPhO5zfGl991B+fF8hD11RXtKK1DQB3rkR7A9SFqYWB6
8VWsf0wsbf0SJoGoSS9czF5qAPWP2GpVERtRAx0sM/ZgeM6oTTzsS0BUlpd+
nUcCUP8SfyaL1SOqynh8/VkzoM65fI7Er0XUdYOvX6BwoC5EvvQM00eU3LcO
zTy8QF1Kf2xTFIAo0PtRNy4GqCvlmRZ9jxG5Uc9R710/0NaOh0vjZRGpdXvj
E+thoPHyn94cZotI+O8C6YVvgbZRzv5f0Q1ELLdVk4jwAtpmG8NGcT5ECDnc
KpMdCzRBf5UXeEwvNo7SjqTUAW1rglRuWCjCS69LddhVDDSRNysRfRPI6p78
+QShH0AT7R73EFdAlj9SOEsNMUATX+yyxjsgy626+o/ajYAmoVatVtSGzO0n
2eZ2Z4Emlx7WG/YCGZcVRzsYeANNy2/ZTDwGaazdXJGz4Ak0zp6ljYTdoDpm
b1Xlvgo0651Npq2aoL7cs7dzUwfQjmzLjThqAVqbLIK1A7YBzX6VOe97EnS3
P3eTH20DmnN74e9bJQDe1NzN5fuA5vrlvMLeOjB2MKneenoJaCff2Tg+/gYm
FF38OVFhoHmWbfjxehnMJIi0F2+1gBZw7ejnUQuwDJ1Yx5ytAFpQjLZAABes
LPueNF4vB1pwuACO5yTgBJU2RgXsBdrZU+U1268C/sKvUxcNo4AWceLKSsYd
IOiu//7+lBDQIm2cDiuUAGGg7JWPy26gXbTaVqL/DUj7NTa+88TijTEcmqzD
9o7X+a0N8zSgxWpVH6AuYTr+v21GJ18CLV45ya1jC6brGJt8aZlAu7Ln5H2n
3UBx0K078IcAtISd0DuhCZQf+RsunMHwvL5NXPqMBTZ3Xj+8Z4oH2o2V1zcv
Y3Pi2gapBtJ7oKXMpraKY33ppdHFtN9uQEsd9dqWfQXjeVDhg0FtoN3qsyDv
z8Jwvx/2JVAXaOntErGlT4GmVv0tVu0f0DIb/7w1wnhBKU+N2IThk/22fl39
N6C5xaXyB88A7W51JjBGgBau+oiNzQHavVL/0B9Y3hOynzhIPwbagwJChesW
7NzvoQUGf4H28O7u2T9YXu43jxc6WQAtP3VOPVQTe17+LbyOAbTChE+nN2C/
F/AeKXEuANrj6Jz8BC7QcnXVOIuHgPbkbDAmaYGWpei4Vw7j51N/mlxOKNAS
26YH4vSAVnpq33GVq0CLMh3mqVIE2jOH5fTyOxjuvhTdHVZAq7BubjcpARrL
zUhxnRTQnlPzxD5g8ekoNUf4YvhVWUYw2Fh8YtUH1q1LA9pLQ/bVbqxPTSl5
WeRfAtorLeUPJ5eB+jawVsNJAWivldfxzWJzM/Ux1Wwb5u8b2e/m4VhfdOnQ
i/l7BWhvdzyO5NfE5viGe6dMwoFWL3ShOtECKJMhNj4qhkD7sKJ+6AG21/zZ
mG/8Sg5on2b5/NTOAtnl6BjO/T7QGn93FT1PAFKrqV3aTmmgtXyPU/xcAsRb
mv+pN2H5alu492pPAsa33QfHk74C7fsuxA10B4L8/N3GiVag/bCbjZaWxea5
4WL+mnygDfQe7fe8ChbbuVHjH7D6HF4XHFJzEsz3fCgd9PQB2ojcDRExCzA7
wDfleQKLf9y5wbhqCUwOjDm89rwLtL+/NTMFT8Lh3oxdyXlYXucFKNrHLUC3
sFrIwAfDffGA28fS3XDIe2v3h4+PgLZ6OmPJ9huo936sLpbvAfrGGX7rAnPY
w3+xZi7WHej/LXVtJ8igPdTAUclCFaDvkpzLz1hCCmK+xQvXvYEuaSRi8ucr
Um6rpBR/Kgf67nNW3mlXkIbMse0tyzZAV+It/vRrEenj711aY2IEdGX5j84G
bcjw/I4uxWQnoKtYDi1fK0ZgU6bodUgR6Oqxksq6rsjkbFLhicRMoB/eEn0p
pg1ZxPBcMEs4BnSDg3dkOouRZUhe3QP3HUA3or4oV72MrFwH9nKVgoBuen1q
8JsZwqvMdX7qnga6eYnAWWVpRNhI1piZ/gh0y9Z9ouELiPBt//uoHeuAThS3
Ndv3BJEcLvd/WP8E6GSdgI4QbN7uyuhm97oBnWp9zeezKyJ/oKk9q9QCOj24
YNMeU0Tx86rb+/wH0Jm36rIDpRCVf+Dv+69CQGe/6NFpWMDmyY6SMvcioHN/
LDZKtSLqrSoDja/iQLeTUV2pi0e0XTw3jq8aAP2opNqgNyAapXe6SEME6Md3
qn/aNYNoETHTJ2QngH5CXKO0LhfRCgayyXkvge60XTPd2xbRWsbEVp0IQHfZ
pnVBQgjR5pLCBhv2A91ti/apulpEF28SNnuA2e6bDzG9gxBdPX3vRxXsfA8+
HX2JA4huNS67qdsR6Kd5dffU9SK6TXVsyNN9QPdeq7fZOxnRXflWXNusge6z
qjctgUd0r3q9oFt9QPdbOtxet4Kw546FzVFAD5jXr/EuxuzMlF81+UAP+muQ
J+GM6KeLPz9u9AR68LThtbc7Ed1ZazmZog700EmjM96fEJ2rdHbu6jWgnx2D
4xKRiG5+vUmpwhboESPGVm+1EV3FJ3nH91igRw6ZqHqPILrwp0s5Tth55/tN
/5PIQLQ/BbH5pHNAv9hjuvqWjmifRJI63l8EekyX2ZDPBkS7txmpKz4HemyH
+WeJSkQLzDDSarICevw3i7K3pxHNvNV2YmMZ0K+0Wmb4yCHa1hfByRW6QE9o
sroo8Q1RW48J8szWAT3pA57lA4jKFCkRfkICenI9wUBiBlEFjeddP8gA/WYd
Ue5tLqKcb9pVxKYC/TYizUgKIbJxU4gLlQH0jCpyx9taREr6cnj4Fw7oWZWU
1z5BiNhtc6sVvwL0nBLa9bfdiHD8uUGdOcavglyWms8TZCXcXpfzE6uHR/fY
OySdkeVBy+fP9W4BvegOh+fdTmRh/q6001kD6CW3uY2Skcjs+Mg+NvUN0F8k
2Hq+oyOwU7tg/zsR6NWX7di+G5Bhth/pngUX6CjW3lCyEulHRNQfifsF9Nrz
xwR9ZZGOQvaLXU83AP1D0IkCyT9I5Zjgnv6fUkDvPHbyl28ibDZy7FPZKAD0
LoZ3sMVOEPv02FQhzh7o3RZBm/+7A9IL8kGzhVi8/coXlKuKQVGqv/eq9mmg
/57L9NrYCFpX6gZkG7D7xn7f52nnwqFaHJ8mXRboE10F1wq6QXcm9RUvyQvo
07UVT2kTYGh6defEHwzPxYTmv7ex/cTiUN0ZhWygL0e1R3smg5n52rKn+m1A
Xw3o+c9YEsyNVBurbO4CY53tuO6gMljKvRm1H98DDF7KTEN5CVhtfeZnbdUA
jI0mi0fi9MFqdjeFnuIFjM2KfGGqBMA/isjKufwEGIISW7esbQJC5KbX91x5
gLF1q2hGqw0QKdqFm6b+AEN4VhYFn8T6fSEfX5g+MLYPK9KIf4B8JWXMsXgD
MMQ6DvZKnwEKON3cZDkKjJ2vDNbVYrrQYoV31ZMfGBIlpkkp2DxKqjBBbGw0
Sz3A73VLAWpX4u3QegQMmTRqmT429+SCKyXSvwJD9jLHcgs2Z5ztDprXWQND
LsLua48K0HKUIp7ceAcMeV9H16dl2BxpVsBFOQJDwfnk/EVDoItYpW7yUACG
krV3LBfjhVmYSaG9GjCUiUG79hOxOne8sX18ARgqRmfzl1uAnjq97uzxh8BQ
Vb+g34jVYbXURv8CIjDU98Z9vNMP9B+de+KeCAJD87/r9v6ngD4vN/Bx6g0w
tDffnLCcxvI0+WtV4jgwDq1kRuwMxvzW7bjauQ0YulP3hcbWAuPgQiDH7TUw
DvcXZL+MxX5XubzZORIYBl+fql/H/mfQzBOQKgQMo4aK1443MXugwfPQeWAY
VyHmIRns/07zF/wZwDAtqhvgz8X8ZBSHSw4Bw/zuR/9OVey+ItUwERowLJNb
NjwqB4ZQWO3YzUBg4C61p5zD5s78y6/adpPAIIT2KDCwuu4K7pfkagKDdHqo
Qp6MxVsSOhGwAxgUh3HcHMarNF8LJ3sMfxprpv09xnPv6n8WLh7AYFgtuqcP
YvnMYjeIuwKDpb9mycsDy/duvXK/ZWBYy26VEsX0zl0V2dp57P0RIxv+Jx+B
dtQ68VpoCTDsbHNmyRi+YmkPj2zG+Hc8Re/DRWxPCSjQG3HA+Hui5EL5Howf
0g+s/45YAMPpS+Pdl8eAErOz2IOL4XdSwDl4bi2QVhYD2x7IAeOU4hPnJDqQ
DgSz5uWxPHpaLNFV7wKRcXfDEeM4YPicu67oZgb46O570wf3AyP4b9XX9miw
SBH2vq9mDoyw7XyvA76B+aUWg4CXGN/C1RiPRRTALIDVldGK4R3l/usioQFM
DOoV3I9IACOuR1SzSgAOSxkFnzmuC4zb709dy7wOEsraJ/TTDwAjY/hZ2OE+
2Pb1mIjstxhgZG9Y6/pN02h5DHdXTTEZGPfgJgi1ok2Xy2P/Je4ERmHp6/HI
/9B+2l73QZXfwHjcvKVdyg2pHhpb6eu8Cownk9ZvKiuR+muSFjXjHDDKlCZu
Tx9Bh97ru9bl/ANGddYugmMGgjqxaOIJrH5RlfMhnglkPD1Xu0lOFBg17U9k
0wGZSoqlDqlivHwrajHf2oPMj5aO35nvA8bnWJ9cSzmES8/DpfoUAOPLg6rE
Pj+Evx0j0ZeK5a/5DV94+BtESNoffWJvLTC+rmawy50R6dTDGYMwA2C0S/wy
YT5DZOLyZf8N2HmdepoHpvgQZS+f8Im3WP/p9mvgVXyIqHb3Kmip48Do9Vg0
lmhC1DLO4HACxpd+F+WwrUuItpm/NH1GHBiDx+wq1u1FtCP3no1cjQDGsPWV
mb9kRMsVD+435mJSno5UfwUh2iQhzr32EzBGCVOnOrMRXfNgiOSeM8CYNGT0
18wg+qManzUnUoHx59AFmTIpRB+g/RBldgBjRrXM9qElYojT/mmdqQHGX8Wh
m7e9EMOsNJ/XA+P33J7/Wq6mIYaHN4/+6QfAWJDAC0XWIsa1M1LvHvMCY0k0
hOg/hhhFtbSCX6XAWNlSEOMmhhjv8fwpd1uBybPxR60tIEbP2p8appnAXLtm
Kw/lJGJMDd9Q8bcA5roF0DdJRIzlvzuWcA+AyTvtHaT1AjF5910iJI4Cc+Po
nRKFQcTcGHxAS4IETP6B5klM3zDXj4bLUHcBc/NPXuWtutj3ZxXsFSqAKfhN
23WtA3a+6tpg0QPA3PrF5e5sPGJ0rxeH2n3A3NZw8+dwGWLUL2eFVrOAKfK6
YVfHT8R4vHuja1MDMEVfLHI+8yHGVd++b27HgSleppxYo44YJ5cWRXtigLnj
sd3nUlvEMK41DNS6AcxduVc3515ADJGm+ofKrsCUzEaWtx4heo969xP/UmBK
p01FXfmG6A8nxnKlY4G5O0n2ZeRaRPcUO6vQj+Vjz2XGov9+RD9QAqH9GcDc
F17me+QsomVey1H1ZgJTMWjoMRnTe7Q/CtLP44C53+e/38ZfEI1n8y13vUZg
HnQMOaEgh6iUssZdktuBqWZXkLmLjCi9fe+Jwq+BqcH+0bElEFGkvIVttbD4
DmGaY6YBkc7GS9cmXgSmkQqvyavTCDdMoIYFdADTeJ/22ZKbyGpq2jr6jycw
TWVcKh/UIMtZ7i6LdhwwLYUb1K9sR+Yj+ERPNRlgkv9dlbWpRMaJ7055bf8H
TPtXO9bMbECqxgMVtMt5wDzWf+Vm0Rzar0w2MhwBYJ7gW3/Q4zfa+370RKnP
NDBdyBO2Q41IdEw3VFsYy+/pzjfPOtJAtPThCaEazN+IOR+P1yqg17WLfk5S
CJhRu4bXR8iAgZ8QuVzkNjAvGNndMhABWLPN14rtBcxLF63elc2Byblv21sV
6oF5fbv0nrwasDRTi9ojzgBm0qGkShds/jul1C8m2QAz+cgmmtwDwEUYLcd3
tAAzLXv2bEY8ELK2br0/hcV79+D779fZQDmncN80ZQ6Y9xjGXhQrbD/kp34b
DwLmg4BnGwUOAzVjRjAG2xeY+VV3NC/KAO1kfkH5AIZfYY/4e1NhbI/Up2dt
XABm0frLDjy8QJdtoG53ogCzhBB09cwI0Ov8Zd8/x/hZ5jkur92Jzavj67b/
xfwrv37ixfRnYDCHj97weAHMytLvjCKsThP/RrgZTALzxXfyiAc2Rz4G6TkY
awCzeqn2nNJ9YK45MtMW5gzMVzJ64kOpGE+uPVqKxOrptenjRznxwORuXt8i
4QPMNy57zY+fBWbwc43URilgvo1N65TC8piSIvm6mQDM+kdCPh0ngPnoBjla
YwCY779c5L/JBubLwqV+SQlgfpxZzGJZAbOhY4uOER6Yjf95HxLW+//zP/YF
MWA2HR78+Bmrw88OJ/ac4ACz5aitYzzGm3flv0o1Mb/aIr8s4oSxOCRs5jSl
gfntvuX1DeuB+fDqjtbPfcBsr69SqMF4dU1U/6cyxpfOMfWX4SPA9Cm5HPzD
FJg/hXLZ+p0YD/0u3viF1XOPpuTo/GdgytnTv/ntBGYfJzGqDMvXTGiDvaMc
MAdC+Hf6Yvmq7jw9k4H1m6GMs09Usb4WFefRcaEHmL+ezU+JemK6ovW4bxQ/
MH9/8Vdd0AT6Ss1qjNNjYI6NTHp1LWA62xkcObrAnFzvXvQaAd2x6UboFxNg
/pEcnMzFdKqQRP+xEQzvmUMOqpeJQCs7cs5o6jsw505yi9jfgDojuqik/wuY
C1HNk4czgBr3xqeX3xyYS+kUVRlHoEo1HjOIdAMWT6P541+TQPbsfHTmdSWw
+LXVH4fxAf5Uwtl/nBvA2kwpnDj+CXDcq6K+gWxgCbopHrRIAisD65GTaZeA
te229GMhGTD/EzPAyZkH1s61Ao/u6oDx9r1+j079BJbSx8HCeldQWhP549K/
amApDx0fe6QCcpF/z9MLsfMO8vw4cH0GJBc5xFbz88DS0GgutI0wWt13ymPK
zA9Yh1NRwcRNJGtztEjtpD+wDJ4eHm2xR/v6d/cG7Z0FltGHZ8oVcuiAq3Nw
y5wtsExXCwsii5DmgYNGd/dvAxbRKa1A9B0y7PwleXlPC7DI4aK/F64geG6T
aqhUDyzqzWv7fzKRybqBC3yuTcBivo/Oz+1GZhfDTq/f8h5Ydmp++YfnEM5q
Y+/TrpfAOoqf+C1TjfCux/jWXuwB1nFH9/285xHh3EOcbUwQsJxSjud9FkKk
9FYKz57TwPJYJuc5KCJqpU6XoU47sE7/KdJLf4dosk+n/jO4Cizv4W0N350R
LXpvt40qA1j+TS2/qTmIbho3/ca7FFiB77RD4k0R/RbNbrf9ZWCdqbq5+S22
P48X6XSxsPvCco8oG8kgRvSwpNPKV2CFp794EfwSMT6mVa0dvQ2sc4lSxDJ7
xNyStsH45U5gRcWEd04tISa+9UJS8glgXQjr8ThwCzEjDX6p7K4FVrSvybKb
HmKWvFnf90EPWJdccy7nfEPMXrvWBonNwIqz3yDZHYhYm5YuxFrnAusyw+WR
hBhiqSR7eN21ANZVq3pDTilikWR3qN2XB9Y1Q6VPiUzEck7BuZhh/iZqxNt/
+oNYweOzryMdgHVDYWxi0zXEit1Dnt97BVgpUpRwC1XESjqIrM+vB1aqyJOt
5z4hVqrQ1D5hMWDd4hfOrPJArJu1b25TRoB1e8Xv4LwAYiXij96vx/DImG5F
mvmIFXNHmjXlBaysX4eoXnjECvp4Z/leK7DudN3szh9GrBOf3wqwi4CV07zg
NRSNWLiCe0kvzgLrfr3tmj3yiKXkdiNO2wpYudVV1+xrEWuDoGLZaDaw8kqk
d6edQMzOzIPssXBgFTyMeNK2FjEfKRSERGP19Cij12RbNmIGP+3arnccWEVJ
pk0kQEwTolbxwxJgFV+65xDThemLFc66Tdh9JeEb/tSGIUbNt+0Lt8nAKvNz
jeKRQIyQYc8XHzG+lrs1iByuRAxVo/hDLzC+v2Be1iieQ/Q4PpdK90RgVePG
X4+nILpalvR+GU9gISMqU0kb0ZobznsppwCrVknEL9sX03sHza4kYfX2fjW1
9Oo4Il8rOUhmfwAW1l/N31/G+GrCq38Gw+/ziG3bRmVEzL7kLTotB6zmVum/
Z90Q/oaGjJOLALA68u4fOtWPLA42WaUZzQHrN6u4AteBdDpNOnmuOwFrzJ+b
QzFB2kJf7pzJHAbWRNLKVWYe0jC8XZFmheE53YJ3OhqM9gvLl55bjQbWEr13
m//Ol6s8LTMcs0PAFqRuc8vigpbJ5aEwYR1gbz39jHkPgc5/kzafibPA3nbV
zihfAfR+CS+MZxwBtuinh6KlcwC6Jbea5luBLUWCV+9TwPwyCEus0QW2zKnB
gsYVsGiJsOuI7gW2bHx8SpszWIletXC5RgG2/PtvHj3agI/KL5pLOgvsg3iv
HX/bgLKBcLb85G5gq50UW79kCFR+NZGW/XHA1rj0fHLNfaDGNto8ficB7EP1
G+sEAoAWoW03M34Y2LrDhU+2dQFtumzX5qY/wNbnY9wWtwC6w+Ful2lNYINl
po8sticcbHdv8N8CbBMXc7t9ocC48kznntJBYJtd/G2l3I/pcFnlQcQDbIv7
1zTUicDUX8N7plQc2FZ1h6QOlQAz9vCmfzzCwMYP/OA3wOZkU8V/vw84AJvE
GzljgvVRUaecfGnsPMpehZ+Wo8CiK78uc/8BbJrZpwYSE1gxS2r3gqSBzXD0
K6W/AFbFa1b2pTJgs87vzOJiuPf7WjqpEYHNuYvi7OKBzbfS/DpOANjWr50D
HGaAvc8mouTfM2Af6RM47moLbKPQhGFhU2Dbry0metRi99htaH33GtjHZLmH
fJWBbTv7gHPHHtgOxiuyQYn/fy6+PJoJbMfjOYJhC8A+bsQ4bd4MbOdzuLko
LA7r0do/l1aA7Zo10RfTAGwiQeWGHw7YJ9GNT1fUga1jpx065wPsU92HKxLT
MNz34Q1yPIDtudqTk7oWWMuP06dGLgLbWzr6asZJYLWtKH2eLAW2r9GB4LtY
n8+TKDTS2A9sf72KMiyPrOC8s1Etl4AdqG0+ZYv1YfPhY4ZiGD5n1JqUy5Ow
Odhr89uqE9ghB+xdt2M67sO92uy0ZGCHKYzc9RYFZoyx4TrxUGCHywV0fcT0
i2Hto65GOrCjdl1lXcD23Nv1J4pPYHy+IL4rofc/YJh5lbvlY/yLFn7wwZAL
9CGipDLC4ojjRyZ/24EuNRcyLo7Fff3flKpLJ1C53z/GS38GdtJ0mHutBFAq
kvMTfjwAdvIE/wMZOyBXnBsk9x0DdtqgrOS3LiDeceM/zpMO7DstjM24brCS
Lih6o7kE7OKiksH9A6C/xYD27inmX0mB8e4YedA9xmYVmmP8LXvw0bbfGbTz
K2ve3d4M7MqMgebbw6Cmtrl36nwlsGsui70SHIH/ZHNVn7Y9AXaTW9CtiXGk
GmzDSH6/COwWp/VfiSpIw/jP0adsJ2C3HbsmnHsaafPiyZ0f5IDdznl46dgk
OhwaYd/KmgB2r3l7wJdpZCoo0dS5BeNNv7FzsYomMmOHDzP/YfUyqP9nLNYP
md+S4Cr+h/FvRHOzo8lfZLX95WTbzjFg/5HVpz2dQ8RXqmunNJjAnhH5pK0j
gEhtnPNGHIwPf3mP7Xwhg8j92Vm8Mz3Anh+O6qu1QlT/jyn/QBLYi+2i76xs
EXVq8N2FdYrAXn7/oOCDF6Kd3G5izdYAzppH7/1bUhGdrPNGeV0AcNZl2dlw
sf2rYu78VUIUcHivTRh21iDGbvuNznkngMPvL7KxfwQxesueiWH7A2ezc86o
6wpi6gcXae34AxxBrnbjmDBiXrso9H2NA3C2HbZJndVDrAMyKX97zgFHRHn0
7BkyYvle4l6Z+QQcUamzDssOiFUyWm1n4QsccSEhy3MBiDWlF1bpxATOjjV3
lHljEVvhRMjPjxeAs3NaU+hSBmLbWDcVGoYCR6L/zaxgMWJHC7XsrdgDHKk2
zvdrdYj9KEzwrsUZ4Mi8/VUt2oHYjUl4VF4EHNmKkDupk4g9RkqZe3gLOHL5
gtFS6xFnfbbZ/OYZ4MjfznS/8x/iiMUM5pVi8SpcUaPKKyOO7Cp31DoDOErh
rzXzAHGUeBDPuQjgKHuzdqgwEWd/7KVHOznAUXEYXC52RZx9tzxFiKbAUWUG
9WqHIo6UhpcStx046hab6ioTEGcro4uHdR44modu5xvmIPbCKjX9AXa+tqLK
1ZpyxO7Rzc/S6wCOzk7kZ/EBsWv4JKJDvwFHT4DObehG7HTvHcWHMbwOL/cb
kGcQ2zf0+JYb08AxmAjY3cyH2Gbqf0NNlYBj1MO3gSOJ2Fszd/ecGwKOcVPq
SIc6YrV+ODW9sxs4prX7Px+1QKzkt1mPxySAY15a9bTPBrHoGTUJCVi+LB9Q
brp4Ihb/8W3ujyyBg7vZE/o7EjGfS6/dWikOHEKs7/HTyYjpMnL4eosYcCge
KUqB1YhRPMvXusQADu2o4pbFJsSg2aGVC+HAYVArp8MHEf23/Jrw+WbgcDS6
XsRsQfRtGs9EtT4Cx35BnnzTHlGVRFteSZ4FzrHf5RoSPohCvBRa45cLHIcf
ePGsi4hswH5p65cPHGfk0Z37CBH59TPu8V4FjufFUp/yVWRJixj7V8ALHK87
ccUbOpH5vPvZIVU54PhUH59iViKztMVxhaEE4AT83XJ60g8Zf7jm7s4NAk64
k4vHvmF0aHi5ucxWHTgJZjtckpuM+g4/OxZU5gGc60cn7vc/BsEHXarKTzD8
k0LeDKrHwy7Dcxuaz24Azs2nPo6fLEGJR6hheK8KcLJl3zvwvgBdLePFXrY7
cIrXhNn63QOrncc0AhcfAKdEknGrJhJw3i7SdoPY92W6ih1CxwD/6iZP9QCW
n0qvNuuCnUAirJQO7K0Gzov4gpvz/4B8IYz3zgEucKpzI79ZtgClrCzgSpoA
cGq6D7L7rgB19dyXor/JwKld4k1WcwdabHk35+tl4LwV72gNtwL6tn1zvr1z
wHlPiWHuWgeMrWJ5C2tagPPR3T7RtRsYF0k/n849Ac7naM2msmpgzCm77IkV
BE5zdQ+Nju3t7+0DZaMxvrS2P0vIYmF7jz9Jw20fcL7+vfx5XB3T2ZWyboXa
wGkXdtyqLwSsH8Lxy51TwOlU0SNfwvqaslMtXRzzvwsvdPkrNgf8b+fuFgsG
TrfT4Me9ucAuz36rcxTjc++5KgHfC8CePe70vLAPOP3piYRXWF/ZXx85UYXV
62CFW9xWI+Acqe+KbdIFznCrUYMd5tcFxvIlljVwRqbE+PPmgZN7ROWCRiBw
xgRGrebasLy0XL5y2wY4Ewo1MRZPMT+fbbywIQ04U2Y33yZhvPi1aDvh+Rw4
08dOb+j1BM6f23L0yS7gzIaaW6gSgDNz48OGVaz//fNb09rKA5xJ99WB+yTg
zLtXO50pw/zyrw/79R04iyeCZ6VOAaetJOOOwzrgLB85dP61LHBe7bdNtI0F
zip9ZrsLVtf3uixjFEyBuwZflCNwBTjnm/l7aP8Bd52Jh8YTM6wuhJ6um0wF
Lq+e4mvWAnDUMku7CB+Bu1FtkL5QBOzVS0NiAoLA5Ve805vpDOy37cHd/k+A
u3n3UR8zTMfFZqy9sP0wcAV3SKwZbgK2Za9bnGsIcLcKfbt2OQZYq2V/knTH
gLuN78ZudUNMxytr/IQp4G6f2wIhecDaaPxak70CXLGJhkaZY8DM43/B9yIW
uP8NRR99IwZMy1cVUVE5wJX4yhO+JRIYfvZdp7ceAK7Up6otT3WAsc4/zfPO
FuDK1J3J4IwD/fLPoCSlCODKlf6pyrYB2g2JRLTbEbjyhY9JFkJAE1a6cfqe
HXAV7rl3jtRh+/0azWcqOOAqJ/UvaaoDuUf4b2p3IHA1fb/qveUHvGTso6dz
NcDVdk9scK8Gq47Mr5WY3uDqnKDaCPmBZWLI6ucnYsDVp9efse4Gs6naG5T4
38A1U3v+bLQcDPv4DQ7vDQMuYyJLS9gVpCxbxx9ZEYDLGrKtfSYFwpzSf4tL
osDl/NzBPNJiNH++Y+cDh/XAPfLpuu89QNsSaWXNJcnAPVF4vljnP6RK5yz7
LtwGrq+720G7t8i04NFzoTefgOt/+eSODxbIXDF1RHl9K3ADH7uv13uDLLJq
EmWl9gI3ZPrUd/HXCBcqvbWhzxO450O8Ir+8ROSOgp+i06rAvZju7QGGiLo1
YZRnbyVwY176cB5VIWpB25bPNgnAvbzOTznuOaJ9J5yNGHoP3Kt7/cUW9BDd
Va7ARHQDcK9ZBqxxrUD0qfYjR2JygXsjLrDN/BlizOp7KQofAm5KYRAq0UZM
z/QDrO/VwE39fCZfthTbj01V25VjgHtrKvjGNU3EogrcCLeXBm6GSEj46lPE
evZ9lxo/D3CztEJPeqoj9o5YVd/3HsC9wwljdj5BbP+1iydEdIF7/1a4YsVj
xPmvR0RbQRO4uVUR2xVUEOe4aLzdHMavvJ8RK8mFiHOnSNZwaRS4hWvO/eLF
5u+P9A1xnuHAfbwnstk3H3G3NZD5hb4D94l5VFWvEuIa7ZtdObQduE9dzudS
HyKu04Nf2/OPArf00oXrLxUQ94LhuqIFIeA+y78YduAB4qZ3i7/4gPGx4mO0
y215xH18YaJPDqu35xMx9E33ELdSkW4QjNVb9bZL+mfkELeqbq1XJxe4SCNW
fugu9t76tZ41xocaVtw2tiz2fT/npE4ocGsD4xZrsxE3wyWSlPQcuHWp8YMa
Mtj9Qxsv7qkF7rvnlxuzMxHX2TWPuhs7v+HHledCUpj/M8ragReB+2H16r2z
6YgrnEjQckLA/bw74eqYBOJ00V4SpbB4vpheCz5yC3HuGhwK+4Xlq9npumPD
Tix/TmzTFAyf1uhEik4qlt+OQs/dv4D79WGS7oP/ELv+aUVIBmZ/f39DTjQF
sf3Wdh59egS4HWPJW86LIbZ4NwdN3gNu19bkuT83EKvUyaLgwTvg9jJufvyc
iJg/mnk6vTA+9funlhti+s713xrlRhXgDqak3Sm4hhjjOp96A4aAO9JxO/DS
VUQfypRx/DoJ3NHl9ONz2Hy3FXBR3uYN3AnpDKLzZUR7rzC27wcJuNMnsnab
xiFqmrDPTzvsvsXfdxuWoxFh5SsBHj3G7MXZHUlMRJg5Iu+H7gJ3ScDCdb8M
Ivz6IftQEMNvSfkXL7cSEVo6Il47YPW25Kli9HQUEfJeDaYHjmP2ZHnJSSoi
sLUmTQ9g/Wp59mP6150In//yRf6P48Bd2SA16jGI8Nn8fGtOFWC2mNfh9U8R
Ppkau+vHDGYfEv6mTkT4iHatYzJdmB3EFb4cjvCsb4e9v//fXuiNNu1HuNXw
rJA4rB5WN2u0thch3ExB3nRzOmbvuiDnHYZwv77+M85Wx2z9fa8yxRCuRZEr
L4b1o9WwU4sLOITLfUa+3t2D2Zer8dew9+ltIYfWOmN2xtbUfb0Id316wgww
/Feri7VZoQgXpljkLLgWsz+vOz9qhXA+xivdg5KY/ZPZHCWKcC7clGunAjB7
4r7sDux7W4+Q/VtaMHv1n1fRI4SjReQdt7b5H4navpY=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 100}, {-98.96521054288439, 95.82164288218922}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.394756080177477*^9}]
}, Open  ]],

Cell[TextData[{
 "\tIt was to permit the practice of giving variables/functions/graphs such \
easily remembered (if long-winded) names that the designers of ",
 StyleBox["Mathematica ",
  FontSlant->"Italic"],
 "interpret ",
 StyleBox["xy ", "Input"],
 "to be a ",
 StyleBox["compound symbol or \"name,\"",
  FontColor->RGBColor[0, 0, 1]],
 " and require use of some special device to signify \"",
 StyleBox["multiplication",
  FontColor->RGBColor[0, 0, 1]],
 "\":"
}], "Text",
 CellChangeTimes->{{3.395882287538507*^9, 3.3958823622689533`*^9}, {
  3.39589112547688*^9, 3.395891133048444*^9}}],

Cell[TextData[{
 "\t",
 StyleBox["x y", "Input",
  FontColor->GrayLevel[0.500008]],
 StyleBox[" ", "Input"],
 "Here the \[SpaceKey] signifies multiplication; alternatively, use"
}], "Text"],

Cell[TextData[{
 "\t",
 StyleBox["x*y", "Input",
  FontColor->GrayLevel[0.500008]],
 StyleBox[" ", "Input"],
 "or ",
 StyleBox[" ",
  FontColor->GrayLevel[0.500008]],
 StyleBox["x\[Times]y", "Input",
  FontColor->GrayLevel[0.500008]],
 StyleBox[" ", "Input"],
 "where \[Times], as we have seen, is produced \[EscapeKey]*\[EscapeKey]. But \
beware: it will emerge that one must write"
}], "Text",
 CellChangeTimes->{{3.395882403817944*^9, 3.3958824090261383`*^9}, {
  3.395891189506261*^9, 3.3958912051202593`*^9}}],

Cell[TextData[{
 "\t",
 StyleBox["x.y", "Input",
  FontColor->GrayLevel[0.500008]],
 StyleBox[" ", "Input"],
 "if  ",
 StyleBox["x ", "Input"],
 "and ",
 StyleBox["y ", "Input"],
 "are ",
 StyleBox["matrices ",
  FontColor->RGBColor[0, 0, 1]],
 "that you intend to multiply",
 "."
}], "Text"],

Cell["Conversely, spaces cannot be used in names.", "Text",
 CellChangeTimes->{{3.394756180637182*^9, 3.394756180713661*^9}}],

Cell["", "Text"],

Cell["\<\
\tIt is permitted to make several assignments simultaneously. Try\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"p", "=", "Tom"}], "\[IndentingNewLine]", 
 RowBox[{"q", "=", "Dick"}], "\[IndentingNewLine]", 
 RowBox[{"r", "=", "Harry"}]}], "Input"],

Cell[BoxData["Tom"], "Output",
 CellChangeTimes->{3.3947562249076*^9}],

Cell[BoxData["Dick"], "Output",
 CellChangeTimes->{3.3947562249951677`*^9}],

Cell[BoxData["Harry"], "Output",
 CellChangeTimes->{3.394756225077338*^9}]
}, Open  ]],

Cell["\<\
Notice that a single input (see the cell-bracket on the right) has produced \
three lines of output. Now, as a test, try\
\>", "Text",
 CellChangeTimes->{{3.395891269073421*^9, 3.395891288297336*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"List", "[", 
  RowBox[{"p", ",", "q", ",", "r"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"p", ",", "q", ",", "r"}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "This", " ", "housekeeping", " ", "detail", " ", "as", " ", "been", " ", 
     "built", " ", "right", " ", "into", " ", "the", " ", "command"}], ",", 
    " ", 
    RowBox[{
    "since", " ", "List", " ", "is", " ", "the", " ", "last", " ", "thing", 
     " ", "we", " ", "plan", " ", "to", " ", "do", " ", "with", " ", "p", " ",
      "q", " ", "and", " ", "r"}]}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.394756257225239*^9, 3.394756257939715*^9}, {
  3.3958825305291147`*^9, 3.395882645420411*^9}, {3.395891306817052*^9, 
  3.395891309584477*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"Tom", ",", "Dick", ",", "Harry"}], "}"}]], "Output",
 CellChangeTimes->{3.394756264776569*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"List", "[", 
  RowBox[{"p", ",", " ", "q", ",", " ", "r"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"p", ",", "q", ",", "r"}], "}"}]], "Output",
 CellChangeTimes->{3.394756284858779*^9}]
}, Open  ]],

Cell["", "Text"],

Cell[TextData[{
 StyleBox["REMARK",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 ": This is as good a point as any to see what the Documentation Center has \
to say about the important concept of a \"List.\"  To that end, enter the \
command"
}], "Text",
 CellChangeTimes->{{3.394756411760173*^9, 3.394756487441228*^9}, {
  3.394756568273817*^9, 3.394756570610222*^9}}],

Cell[BoxData[
 RowBox[{"?", "List"}]], "Input",
 CellChangeTimes->{{3.394756495477659*^9, 3.3947564967872543`*^9}}],

Cell[TextData[{
 "Be sure to click on the ",
 StyleBox["\[GreaterGreater]",
  FontColor->RGBColor[0, 0, 1]],
 "."
}], "Text",
 CellChangeTimes->{{3.394756525369981*^9, 3.394756545818385*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.394756690737296*^9, 3.394756690757963*^9}}],

Cell["", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Delayed Assignment: Functional Definition",
 FontColor->RGBColor[1, 0, 0]]], "Subsection",
 CellChangeTimes->{{3.394756703272337*^9, 3.3947567188652897`*^9}}],

Cell["Were we to write", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "=", 
  SuperscriptBox["x", "3"]}]], "Input",
 CellChangeTimes->{{3.39475677850176*^9, 3.394756783620943*^9}, 
   3.395891499851705*^9}],

Cell[BoxData[
 SuperscriptBox["x", "3"]], "Output",
 CellChangeTimes->{3.394756838248335*^9, 3.394763588375538*^9, 
  3.395891504357637*^9}]
}, Open  ]],

Cell[TextData[{
 "(thus giving the name  ",
 StyleBox["f ", "Input"],
 "to the expression on the right) we would\[LongDash]for some limited \
purposes\[LongDash]be in position to treat  ",
 StyleBox["f", "Input"],
 "  as though it were a  ",
 StyleBox["function",
  FontSlant->"Italic"],
 "; try"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  SubscriptBox["\[PartialD]", "x"], " ", "f"}], "\[IndentingNewLine]", 
 RowBox[{"\[Integral]", 
  RowBox[{"f", 
   RowBox[{"\[DifferentialD]", "x"}]}]}]}], "Input",
 CellChangeTimes->{{3.394756820766324*^9, 3.394756832796246*^9}}],

Cell[BoxData[
 RowBox[{"3", " ", 
  SuperscriptBox["x", "2"]}]], "Output",
 CellChangeTimes->{3.394756842851886*^9, 3.395891511220683*^9}],

Cell[BoxData[
 FractionBox[
  SuperscriptBox["x", "4"], "4"]], "Output",
 CellChangeTimes->{3.394756842851886*^9, 3.39589151152071*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "f", "]"}]], "Input",
 CellChangeTimes->{{3.394757185289072*^9, 3.3947571875459433`*^9}}],

Cell[TextData[{
 "But we would not be in position to ask \"What is the value assumed by  ",
 StyleBox["f", "Input"],
 "  at  ",
 StyleBox["x = 3", "DisplayFormula"],
 " ?\" Or to plot  ",
 StyleBox["f(x) ", "DisplayFormula"],
 ".  ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " understands"
}], "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  SuperscriptBox["x", "3"]}]], "Input",
 CellChangeTimes->{{3.394757117977119*^9, 3.394757122287106*^9}, {
   3.3947572222290916`*^9, 3.394757232103209*^9}, 3.395891526414831*^9}],

Cell[TextData[{
 "(",
 StyleBox["note the presence of the colon",
  FontColor->RGBColor[1, 0, 0]],
 ") to signify that we intend to ",
 StyleBox["delay the assignment of specific value",
  FontColor->RGBColor[0, 0, 1]],
 " to ",
 StyleBox["x", "Input"],
 "; in short, to look upon the preceding command as a ",
 StyleBox["description of the functional structure",
  FontColor->RGBColor[0, 0, 1]],
 " we have assigned to  ",
 StyleBox["f[x]", "Input"],
 ".  We are only now in position to make commands such as the following:"
}], "Text",
 CellChangeTimes->{{3.394760662170423*^9, 3.394760681359584*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"f", "[", "3", "]"}], "\[IndentingNewLine]", 
 RowBox[{"List", "[", 
  RowBox[{
   RowBox[{"f", "[", "1", "]"}], ",", 
   RowBox[{"f", "[", "2", "]"}], ",", 
   RowBox[{"f", "[", "3", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["\[PartialD]", "x"], 
  RowBox[{"(", " ", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"f", "[", "x", "]"}], "2"], "+", "x"}], 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", " ", 
    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], " "}]}], "Input",
 CellChangeTimes->{{3.3947569315900793`*^9, 3.394756965355235*^9}}],

Cell[BoxData["27"], "Output",
 CellChangeTimes->{3.394757007130851*^9, 3.394757262908841*^9, 
  3.3958915344614143`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "8", ",", "27"}], "}"}]], "Output",
 CellChangeTimes->{3.394757007130851*^9, 3.394757262908841*^9, 
  3.395891534595622*^9}],

Cell[BoxData[
 RowBox[{"1", "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["x", "5"]}]}]], "Output",
 CellChangeTimes->{3.394757007130851*^9, 3.394757262908841*^9, 
  3.395891534711968*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1Hc81V0cB3BRkkoIRWQrJbSs8vsY9RBSRqJQ2RJF6jGerIzMxHXJKntl
u5lxrZRRVJLMECJdChXiuf1xXp/X+7y+53POX0f/uoWwNQMDAyN9Lf1N4twX
atektdYxsfC9IaIfM3CEd+gGn/p65brKsQDVffI4wVuaGPfosDKtkpux0vAf
6Er86yvGP0awNtLM8a4WhrxJJT0d2oRgRb7ai5pmmAiuZQiEiRHSSydo3eGS
MJe4EmuptUIoNVIY7+3+jCvkK03v/KeIkyp8mp3aYrDijXr20+o8cabC3VL8
5G3YJDaW86k3EUYx7GdteWphLzhfpCwqS5gv8dvv590NhzTxnMuMiYRVkkcJ
pxAFThJGqX4jLMTVxth37dtjcMOwsePNcBXhzBQ7eXOnO5zJplpWZ28Qt1SY
HVVTteHSM/98gSpBeIisRI1uFYQrb7h6kMwA4V1x6aZd7RBuXRSn7nxEIu4y
s3K5sJXhdmLt8dxtWkQgaW28VEMH/w4aVR7zZiBC7jM986nZD3dB2tH2b0+J
iCUW8VEhNXhcCSoxN79GPJhZe+8crQLPNCFp2isRgpTkdL2JOoP/xiryfJU/
ELERp8SvuzyGl4TeXs78CCK+MVh5cV0XvG2/pKcLnCSSVfas9bcsw8ewnj3+
uReRwnTf+N02bfgshOuOepkQaVtLdb7JhMKXbBIuJXeEyMCKt9ecJ/zkxdtc
v20jshImol/49sCv5/umZxlTRK7I3IGtW83gzxsSeIb7MVFYoe95/8U7+FcZ
NcV2eBLFVl3VOZKCCLgoyjgcYESUMjM2hJ34hMDEam/nhS3EU9LP4v6LGxCk
HPSs6skEUeGvoBzqJ4qgQYMVJqsGoipiKY7a24Jgwa9upHduRO3v1fVqrjsR
TK14OhBmQFDzB/omnakIueK/IHFCmqifWVIp+3YLoWkCzuWlY0RTkp3uo9EY
hKl/KWJwqCOeb3U7dcnFAmFjlG+nROOJlgg1FxuXL4iQ0L36MVqPaG30/R62
MIGIFr4cUW0pot2NknA6ohr3bccnrjGxEK9UhLhjn29CpGFd8WrlJaKLKZRj
Q7IFIjPEu0S5dYg3TEWMUy81ELkQOqvhrES83VpQeLT3JR6QjaUjJbmJbvy8
l1y/iAfjtafLAhiJ93aPB8PFOhElL3btw/As0ZMwouJ3NxNRPbN5wnFtxEeR
aQ9R7WiQeIP3lLL4EkMV2mvpKbtBulFy74HGPmI4/08FtWYQpJa+L9cD3hCf
AucU2HmPIOa2dJ4Ukxgxqpv+0k+jFzEdxltYVduJMeUUzzuOHCCL+V6b9LlF
fD5y+HDIXlmQ37yTTv/znJhQiFgI3rCIWMk/9+8ev05M/hPzyMAzArG+ErNX
PHcSX0xzI4alJhAn414i8MuemE5x85qdpOBhmOBR8o8txKymR5GFBA0PRzXJ
tw5SiNm5S55KMeqIV3L+aXDDnJhLbspObzmH+Mmmym0zhcSPjTptzC8TkHjy
6vF7k/rEIvtK2HToP0hMjE6ylVgmFofC2o6bbkTij5rVk9bpxM9SnrzXZEsk
pW6jrhtZIH7bG/yIie9C8ipF3WMgjvjDxb8SskcUj84NppvwqxKrW0TyPgTL
41E+ywb5C1PE2qYEZd4lKh4fyLd0/7obDCGRb7JkovC4n0Fczv46GCu4F0or
epCykdSdca8JTFoV/omnVpByWDKQK3snmIb1xIwoL5ESoj/+fZyKDVx+4wf+
6UaqQkZ2oRUnNqbUpL53Xo9UKyWT3XdtwKIzOtHwuwyp919vCk+tBsuy8oBJ
4RpSx39ddfhkBdYr2fucX3UiLUZbaq85BVuN9nnW/8xF+txsYYqJMTi+q1ef
9JdBBl8qq2EfDZwXc0TWdxYjQ93AmsU8EJzPs7d5OnxDBukp33XLUmxP8eqW
sM1CprxngLITG7ivjtvHWxYg6w7zhV6/ZvCeOZt9cOoWsjLKKeEbTMH7lvr4
YNR3ZL2yZ1cJ+g4+k2V3jW//IluwrTkrXAi7HAbFz8ZWIbvhgeyt2P8gkJHf
8Cs1Abks/MwcTw5BWInLbyZ0J3JlOy43S7+EcKhp/L3CXuSaeFW7FV+G8EDq
68FhDeTmfrox9DQcIgEydSxnnyLvdGZfPnUSosO3By0msvAk+mDxqe5kSLzc
/vDNkw14Uj26+Y/xUezZt/h4vforPBkj2RR9bMee8FlnoYeOyD/6k3/H0G/s
PS/9yPoqBfkfagI/TxlC8ifDxcMCBAp3a5j6rm3GAUf9Fx4+V1D4j5T5efs4
HBjiWJi4fgeFThyXpd6JQVpvvnV9rBAKn/VZ9uQQkDm2X85joBpF0uUUck4l
ZMPrJxuP8KDolXbNV4MZHAohtb9UGEbRCKHcs+kIDrVPtoUyXkbRomxtfa0H
Dm/7qLx8NwzFu7mpsZIbcTg2znrV4C2KHYeaVFeFcaSAvEukhhUlW2+2xWaf
g9yy4mDafjaUCNvo+JklQl6jRqv3jxJKjhp3OHKOQJ400cYj4oUSM+XXaneu
Q+HgcVrZVkWU5G98M6MfDEXneRGBH7Yo1Un4qLbyDMe5FGZt/CJRFto4+U1P
HCqzD6XOn0tGWYqtkoY3H1QljIY2hTOhrJw19HE+O1RNAxotH0yjbERP2oBl
CaqtCsvfOf1BURi8WU7thFoe494CAxZQPv9a9ZX1wAm/IH3duQ6Uq0hzcW17
Bc2whB/BeZtRfq7L2lG5EZpd1p9kvVVR7uD69LlDBU7xFPbERp9DObnaxK0l
DadSmyuDg6+hfEYzecDbDVr1zLqHOHRREW8pmUkTwWketUSVoiBUzsdB8dW/
0Nt+85pRXBWqWF5+pkizQe+YY80L50VU8S+HyYanQ88yU01FdwZVJ8179+h0
Qa/sTf4JLjlUkcVvcrXth/6F3Vo5Hbyoli/JpLUMwaAot89sLQo1Hh1sGfUa
MIqY3vEl9RdqIlYpwkKDMKrbFMi1/gxq0mQvJvq4woh27aDh1RuoaYvOjkYK
zp9dY+A9qYJn/BfUfJ4tw3jHpeb6o4t49mzi9sWqQpgUK0gubZZF3bp1gxxl
O2DGR+a9T72DOp4xw+UwU5gZW/yZ/DCMOqnnbZ+tUmFGDhJmd92BOuPQykpu
KZhvf89707AOdUXcMZdvq+ESZ0yIUF4/qDKkzPOJcrgcabd9NjQf1MFss0zz
K7CgzgnEsxqB+uXhw11a/rD4HLhsM08GdT7kXaRcJixZdc4cywpEPaujtgfb
V1gaWr/tdHNBvdwhxdN1t2E51fPE9TgF9eE1XAtCYbAW6vJgYeRHw/HX7eoj
T2FbPO/utXMMDRrhc76a72Hb9zXkrO80GvR1eGoLFmHHzLMl6TIVDbYvrih6
ysPuwp/eT5bxaIiiLspsr4D9RtGmggpjNEyWCPGdqMRVuxFNlRsNaCSRbs5m
1sBRf8FJtzQUjY/0H0pv6YfjXYOlxb2raMxlr3VwWYFj6UQ87ZAJGuvCWcah
DCfugmD2sVg0TgUk9fXUwqmvVrtwnT2aVG63tLDU4YbCmkPCzyQ0fTXZlXS1
Ac6jE+Un48bRtGju4PClFM5/si3qT5xFM4NltZJdOlx2+FZu129HM5fThR6b
ALhoe8VYu/xA8/G78RwWmnApSzWaoUyjOaxgZ4DJa9wMTdSdWcjB8wNM3I6a
/bil8yQptzsULY7525QlFuAu8JZt3fA4WtxCWtRGCLirdFcYkobRctfOWzMp
EO6Wv/ptRVrQ8lCUZsjFA/fcxx20CBm0NMW/dlgnBw9Ft+UgWgVe7Lp3P67P
DZ5m57NzVLzx4qXVtvn7K7hTKx+sKj2LVvFd7Hm/GeF78/MTGbeTaJXBD7WO
XfC9R/BbO2xCq6JVd2/KEfgmZhppHaLPny5I2HjKGr7NmYg1jUHrbTVxi4cv
4LfTKtq3kwetLfZKvEr34Ucdjk9f7UObfbll4H/88N/NsBhV0oD2AoOnl9fk
EMSqaHdHugKv9z1/dcS/HeGR3RSZyGx0fsv5PR0piKjFAFcvDhO8ke0eHPo5
jdi7Vp/qEhjwNoKttXoqHUlHi5PIkrl4NzZGyxJgQ0rn6zesflx4L/bYhmIf
howjYbLT+Zno8bYby1NZRM75jTvkSbL40MhT1nTIFflZ4fYJpvr4KNwV2lQw
RP9X9dTjzSPR5yGZ8O7qMsrUtF9FnqKhv9pmdaPqfpRLtkaN7s3E4I5iW+FU
DVQl5kq4Np/BkOknkUsC/6JWSO+yJK8Chk/3bD73VQrUmRXbpNczGF5qYpnd
th2Ngtrmv/Z8wKdE0cKEuvVoNlxrv5R8DyPam3qrjzig5Us0eY6zESOLtY8t
TuWhNW3aR7AuAqPkcXa+6QV0mF3JfzRRiLETJCYNAwo61ca8YiUlMDZe9ihA
0xtd3S6GkS8l8Tkg7YPWgDDeunlk7z+jivFDvCR/eSV0XzRhGziWh/G3636/
3m2KHkW+mtus+ZjwvTES3rqAXrOHs1r8jJgU03c1Xx+HPs+zUtOmGZhsYkyl
DG7HQO7Avk8eO/DFWdHQ984GDHOrHU7W1cIU50iheQ4DPp3xE2nz4MBUA2d4
YbwLRih50TrL/2HaiYPl3v5nGNtDVsm4ro2vbH5SLloc+PzA6qSX0AF8rXF/
23mgHxNSlpfkSaWYMR8TQ3IRJmu3jK5/H4qZVQEOuUIzTJkwz98s78O33H7f
lAAffN2XqLlangiaDluCwGQ+Zmhz+0j+PKAttSiwceiBNmssd+OsKt39uxg3
hNBNbmMiJdM9+2fhdxPd3ZcmYytAW+ZrHBiRA21OPyTr4xzdTmfyS/lA+64z
unzRDLQVbtvThiOgzatmLLq8Ae2PJTkszhW0X/ttCeefdLu5+4Tl032VedPC
MbrDTV19xunOztijPEl3uYipvTFov8XHzgudAW2VtUBKSZn+DiGbMBlZuoub
2/qZ/97joZ02Rvfz7LpO0G24+zC5lO6+0NImN7qjGhz16ftrG/QSnkzRe9k3
vxezo9t4wOHOq7+9qXeUuul2pF5y2Uj3Kc0f7o50+6UZ2KjQHUSr9rtO9xP7
Y7olf3sIlXl/etbryKhN01P986o5Iz3fy4jKi/09F7E1ikrPac4d+83/zsk5
RS3Qc21hs2Ds3xwSNu/6HxFDqYU=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.394757007130851*^9, 3.394757262908841*^9, 
  3.395891535067972*^9}]
}, Open  ]],

Cell[TextData[{
 StyleBox["NOTICE",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[": Four commands, simultaneously entered, produced four distinctly \
numbered outputs.",
  FontColor->GrayLevel[0]]
}], "Text",
 CellChangeTimes->{{3.39475730592245*^9, 3.394757352066964*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.394757445881854*^9, 3.394757445897006*^9}}],

Cell[TextData[{
 StyleBox["NOTE",
  FontWeight->"Bold"],
 " the use of the subscripted _ to identify the \"independent variable\" ",
 StyleBox["x", "Input"],
 ". Its purpose becomes clearer when you look at "
}], "Text",
 CellChangeTimes->{{3.394757470627119*^9, 3.394757530990097*^9}, {
  3.39475759285601*^9, 3.394757611270554*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"u", " ", 
    SuperscriptBox["x", "3"]}], "+", 
   RowBox[{"v", " ", 
    SuperscriptBox["y", "3"]}], " ", "+", "w"}]}]], "Input"],

Cell[TextData[{
 "where we have announced our intention to look upon ",
 StyleBox["x", "Input"],
 ", ",
 StyleBox["y", "Input"],
 " as variables, and ",
 StyleBox["u", "Input"],
 ", ",
 StyleBox["v", "Input"],
 ", ",
 StyleBox["w", "Input"],
 " as adjustable constants/parameters. The command"
}], "Text",
 CellChangeTimes->{{3.394757634932294*^9, 3.394757736496811*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["\[PartialD]", "x"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y"}], "]"}]}], "  "}]], "Input"],

Cell[BoxData[
 RowBox[{"3", " ", "u", " ", 
  SuperscriptBox["x", "2"]}]], "Output",
 CellChangeTimes->{3.3947577642930813`*^9}]
}, Open  ]],

Cell["\<\
gave a result that is not at all surprising. But the result produced by the \
command\
\>", "Text",
 CellChangeTimes->{{3.394757778561043*^9, 3.3947578679705467`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[PartialD]", "u"], " ", 
  RowBox[{"f", "[", 
   RowBox[{"x", ",", "y"}], "]"}]}]], "Input"],

Cell[BoxData[
 SuperscriptBox["x", "3"]], "Output",
 CellChangeTimes->{3.394757853669363*^9}]
}, Open  ]],

Cell[TextData[{
 "is a little bit surprising: ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " has uncomplainingly ",
 StyleBox["differentiated with respect to a parameter",
  FontColor->RGBColor[0, 0, 1]],
 "."
}], "Text",
 CellChangeTimes->{{3.394757879052649*^9, 3.394757903227298*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.39475792806728*^9, 3.394757928151821*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Piece-wise Functional Definition",
 FontColor->RGBColor[1, 0, 0]]], "Subsection",
 CellChangeTimes->{{3.39475794852087*^9, 3.394757959387306*^9}}],

Cell["\<\
We sometimes encounter functions that are defined \"piece-wise.\"\
\>", "Text",
 CellChangeTimes->{{3.394758329045926*^9, 3.394758362937881*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.394758744492752*^9, 3.394758744513461*^9}}],

Cell[TextData[{
 "EXAMPLE: I have in mind a \"vee-shaped\" function, that I will call ",
 StyleBox["vee[x]", "Input"],
 ":"
}], "Text",
 CellChangeTimes->{{3.394758753558964*^9, 3.3947588084252768`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"vee", "[", "x_", "]"}], ":=", 
   RowBox[{"1", " ", "/;", " ", 
    RowBox[{"x", "<", 
     RowBox[{"-", "1"}]}]}]}], "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vee", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"-", "x"}], " ", "/;", " ", 
   RowBox[{
    RowBox[{"-", "1"}], "<", "x", "<", "0"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vee", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"+", "x"}], " ", "/;", " ", 
   RowBox[{"0", "<", "x", "<", "1"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vee", "[", "x_", "]"}], ":=", 
  RowBox[{"1", " ", "/;", " ", 
   RowBox[{"1", "<", "x", "            "}]}]}]}], "Input",
 CellChangeTimes->{{3.394758417740582*^9, 3.3947584278040047`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"vee", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxV1nsw1WkYwHGS7SZkQxaFKE50lVaXebaidENiadpIbbQuEyeXSqtDVpet
tIpKihyiEitqszmeNp0i6eSW3CqkVJzfcY1TsXZ7931nfzPvfOY788y8//3e
x2nnVsPtCgoKI4ZP8j/i0NDQOy2YCTKFfz8c8ph3teygE+3BQm//KEko7c+e
f70bV1VF+5Pegok77+jTljeqKd/zvUF7ILJWNufoFtr9gIfCYvtp9zWd0Xmu
KqTde7iSP2d1Iu2eVWa7Pf0iaXd18EOvKIXR7sx4aiwReNKW+SSeaRXFsYZd
9389+Zz1xNU9c3yms1ZtrX1tLGM9RoAJL/JZj9RNc0hg93Of/bVGXzkNROS6
Upr4BjwgIvfmWWZ9XAEQkauwWZ4leAlE5B7sVdPu4wMRuYLsugi/kUBELl03
0NnVDIjIhXVdkFsMz38RuUBTn23C4fkvIuflPr9sUjwQkXMseZSsdBuIyJkk
y23rhue/iFKJg8tv0fFARKlRporpiz+BiNJJCdcUF+8DIkpVD6+rPbsEiNgh
94o54nQHiNhRYajxXvwAiNgREa+TdbUKiNj+UjDdMlQKRHx/wXnZd+pTgYht
Lc0+h3jXgYivrawMcsQvgIgtN3FunHkrELFJcabV5fAJQMSG7jRzzsociFiz
O/9Jh80BIGKF9sYTWc6aQMSHxsVq4r7rQMTCqLfHWuvTgIiF884nae2rAyKK
mtf/vnKyKhBRBPkVGVtCgIi35Ue0fVpXABHzA3jJnLQNiJi3yTdXPoIHRMwb
O0XME7oDEXNvVT7dZBMLRMzVWtRfEC0HIuaUqyzZP64UiJh1bOPx0bxnQMTU
bfV5eus3AxGF94Kte7vbgYhCE1WUxO8DIl58vbQ0sj4RiHih3EFcUZoHRDxV
1zbVrycbiHgyUXeWgfVjIGLsZvuFleFSIGIM7kgN0nADIv5SojhCddEGIOKB
Nd46QeJYIKKgrGx2vcMTIGJo2lx0LD4HRORfHpTqN04CIvpujreubpkBRPT0
nnk6QGUaEHFdkW6VaZUA/tPSQtmnUc2c6tavnhTZ+ZTqxd/ZNd1BRg2w9H24
4mQYNXhW0rk94YPUvbxKv0wfATVS/fzBwwZF1KjjCwKM4qOoB8eVuxWorKAe
HaVsJv1QTI0dvOnF8/amCoPvVoeNzaemGmVXalokMyWJT7Ido6mXzEJKW+Kd
qRmNvLtrDWXULJvYbH3radS8wzk2HrklVHSLmKzYPJ9acnfhwG3ZVGqFm31Z
rXAVteZGr5LGOltqwx+zBTUeMdQmDcfx+vYPqC0JFeGahh3U11oxnjOCgqlt
xV5O6g011PdrR71ZvGcL83tpdfGPPKZn9T1n+25mqPCin3E0UwibzkkymfIQ
yUeTAWp7Ruut/IpYZu6jdFvRD8zC3LjyDBNmVQT/7c+3qB0K+hY6ps+Zrs4X
d+/nUaXKRUcWzChiqnUKnWe5M7+ZUhA4t585M0x6daE509VywxS7U8yMNL1R
272Y1yvnG/+kwBQp2i/1S2CWbxaE7XrMlGu+4iIXULk10ddqkkYzXfLu96Sk
MD2aX064tJgZBBprrgUwEz8M/+RqmekmMQ0YxMzZkDFQpMoUZ9fPe7iMKWns
cSxrYNapjPcvD2FKd0D6syvM/ni3ew22VJni1m9lHH2fQfbVHtv9gSLW4044
je8+wlqz0Jf3wZj1lPaolfJC1pZ2NyMVu1jbpbYVjJnGus1F++vmFNqdh5Rt
fQvofgNdzfzLI+QKtHtMxO6i9R9o90aZ6HpY1tPuazCaoO4aQLtff6Tbq1M6
tAd2d6cnb8qiLRcV2+1f4kr746eFRv7uObQ/u+QrLR9L9ycYPKNvtaic7msw
1Hs8QM/oLGv5Awud2a9Y/3/f+xtwWcNB
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-2, 2}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.394758457426196*^9}]
}, Open  ]],

Cell[TextData[{
 StyleBox["NOTE",
  FontWeight->"Bold"],
 " the use of the symbolic construction",
 StyleBox[" /;", "Input"],
 ", which means \"use this rule when the following test is True.\""
}], "Text",
 CellChangeTimes->{{3.3947588532019873`*^9, 3.394758946826984*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.3947598700418787`*^9, 3.3947598700500193`*^9}}],

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " 6 provides a command that does the same job a bit more simply\[Ellipsis]"
}], "Text",
 CellChangeTimes->{{3.394759883045336*^9, 3.394759931643209*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Piecewise"}]], "Input",
 CellChangeTimes->{{3.3947599393907547`*^9, 3.394759941902685*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Piecewise\\\", \\\"[\\\", \
RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"val\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"cond\\\", \\\"TI\\\"], \
StyleBox[\\\"1\\\", \\\"TR\\\"]]}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{SubscriptBox[StyleBox[\\\"val\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"cond\\\
\", \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]]}], \\\"}\\\"}], \\\",\\\", \
StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}], \\\"]\\\"}]\\) \
represents a piecewise function with values \\!\\(\\*SubscriptBox[StyleBox[\\\
\"val\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \\\"TI\\\"]]\\) in the regions \
defined by the conditions \\!\\(\\*SubscriptBox[StyleBox[\\\"cond\\\", \\\"TI\
\\\"], StyleBox[\\\"i\\\", \\\"TI\\\"]]\\). \\n\\!\\(\\*RowBox[{\\\"Piecewise\
\\\", \\\"[\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"val\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"cond\\\", \\\"TI\\\"], \
StyleBox[\\\"1\\\", \\\"TR\\\"]]}], \\\"}\\\"}], \\\",\\\", StyleBox[\\\"\
\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"}\\\"}], \\\",\\\", StyleBox[\\\"val\\\", \
\\\"TI\\\"]}], \\\"]\\\"}]\\) uses default value \
\\!\\(\\*StyleBox[\\\"val\\\", \\\"TI\\\"]\\) if none of the \
\\!\\(\\*SubscriptBox[StyleBox[\\\"cond\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \
\\\"TI\\\"]]\\) apply. The default for \\!\\(\\*StyleBox[\\\"val\\\", \
\\\"TI\\\"]\\) is 0. \"\>", "MSG"], " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Piecewise"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.3947599481113*^9},
 CellTags->"Info3394734747-7247722"]
}, Open  ]],

Cell["\[Ellipsis]as I now illustrate:", "Text",
 CellChangeTimes->{{3.394759971539538*^9, 3.394759981633428*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"newvee", "[", "x_", "]"}], ":=", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"x", "<", 
        RowBox[{"-", "1"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "x"}], ",", 
       RowBox[{
        RowBox[{"-", "1"}], "<", "x", "<", "0"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"+", "x"}], ",", 
       RowBox[{"0", "<", "x", "<", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"1", "<", "x"}]}], "}"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.394759085636138*^9, 3.394759181906198*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"newvee", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "2"}], ",", " ", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.394759216055561*^9, 3.39475921641089*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], 
     LineBox[{{-1.999999918367347, 1.}, {-1.9607426367806124`, 
      1.}, {-1.9214853551938782`, 1.}, {-1.8363665716581652`, 
      1.}, {-1.7568884657193913`, 1.}, {-1.6789694047244954`, 
      1.}, {-1.594446123367355, 1.}, {-1.515563519607154, 
      1.}, {-1.4300766954847084`, 1.}, {-1.3461489163061406`, 
      1.}, {-1.2678618147245122`, 1.}, {-1.1829704927806393`, 
      1.}, {-1.1037198484337056`, 1.}, {-1.0260282490306498`, 
      1.}, {-1.0154912715599873`, 1.}, {-1.0049542940893248`, 
      1.}, {-1.003637171905492, 1.}, {-1.0023200497216591`, 
      1.}, {-1.0012755102040816`, 1.}}], 
     LineBox[{{-0.9987244897959183, 0.9987244897959183}, {-0.9983686831701608,
       0.9983686831701608}, {-0.997051560986328, 
      0.997051560986328}, {-0.9944173166186623, 
      0.9944173166186623}, {-0.9931001944348294, 
      0.9931001944348294}, {-0.9917830722509966, 
      0.9917830722509966}, {-0.989148827883331, 
      0.989148827883331}, {-0.9838803391479998, 
      0.9838803391479998}, {-0.9825632169641669, 
      0.9825632169641669}, {-0.9812460947803341, 
      0.9812460947803341}, {-0.9786118504126685, 
      0.9786118504126685}, {-0.9733433616773373, 
      0.9733433616773373}, {-0.9628063842066747, 
      0.9628063842066747}, {-0.9417324292653497, 
      0.9417324292653497}, {-0.9405034426689691, 
      0.9405034426689691}, {-0.9392744560725884, 
      0.9392744560725884}, {-0.9368164828798271, 
      0.9368164828798271}, {-0.9319005364943046, 
      0.9319005364943046}, {-0.9220686437232595, 
      0.9220686437232595}, {-0.9024048581811692, 
      0.9024048581811692}, {-0.8630772870969888, 
      0.8630772870969888}, {-0.7778179245663834, 
      0.7778179245663834}, {-0.6941176069796561, 
      0.6941176069796561}, {-0.6160579669898679, 
      0.6160579669898679}, {-0.5313941066378353, 
      0.5313941066378353}, {-0.4523709238827418, 
      0.4523709238827418}, {-0.3667435207654039, 
      0.3667435207654039}, {-0.282675162591944, 
      0.282675162591944}, {-0.20424748201542325`, 
      0.20424748201542325`}, {-0.11921558107665804`, 
      0.11921558107665804`}, {-0.11797509321194202`, 
      0.11797509321194202`}, {-0.11673460534722599`, 
      0.11673460534722599`}, {-0.11425362961779392`, 
      0.11425362961779392`}, {-0.10929167815892979`, 
      0.10929167815892979`}, {-0.09936777524120155, 
      0.09936777524120155}, {-0.07951996940574504, 
      0.07951996940574504}, {-0.07827948154102901, 
      0.07827948154102901}, {-0.07703899367631298, 
      0.07703899367631298}, {-0.07455801794688091, 
      0.07455801794688091}, {-0.06959606648801679, 
      0.06959606648801679}, {-0.05967216357028854, 
      0.05967216357028854}, {-0.03982435773483204, 
      0.03982435773483204}, {-0.0386082299473641, 
      0.0386082299473641}, {-0.03739210215989616, 
      0.03739210215989616}, {-0.03495984658496029, 
      0.03495984658496029}, {-0.030095335435088535`, 
      0.030095335435088535`}, {-0.020366313135345034`, 
      0.020366313135345034`}, {-0.019150185347877095`, 
      0.019150185347877095`}, {-0.01793405756040916, 
      0.01793405756040916}, {-0.015501801985473282`, 
      0.015501801985473282`}, {-0.010637290835601531`, 
      0.010637290835601531`}, {-0.009421163048133594, 
      0.009421163048133594}, {-0.008205035260665655, 
      0.008205035260665655}, {-0.00577277968572978, 
      0.00577277968572978}, {-0.004556651898261842, 
      0.004556651898261842}, {-0.003340524110793904, 
      0.003340524110793904}, {-0.0021243963233259664`, 
      0.0021243963233259664`}, {-0.0012755102040816326`, 
      0.0012755102040816326`}}], 
     LineBox[{{0.0012755102040816326`, 0.0012755102040816326`}, {
      0.0015239870390778474`, 0.0015239870390778474`}, {0.002740114826545785, 
      0.002740114826545785}, {0.003956242614013723, 0.003956242614013723}, {
      0.005172370401481661, 0.005172370401481661}, {0.006388498188949598, 
      0.006388498188949598}, {0.008820753763885475, 0.008820753763885475}, {
      0.010036881551353412`, 0.010036881551353412`}, {0.01125300933882135, 
      0.01125300933882135}, {0.013685264913757225`, 0.013685264913757225`}, {
      0.018549776063628978`, 0.018549776063628978`}, {0.03800782066311598, 
      0.03800782066311598}, {0.03932713939374399, 0.03932713939374399}, {
      0.040646458124371995`, 0.040646458124371995`}, {0.043285095585628014`, 
      0.043285095585628014`}, {0.04856237050814005, 0.04856237050814005}, {
      0.05911692035316411, 0.05911692035316411}, {0.08022602004321223, 
      0.08022602004321223}, {0.12244421942330848`, 0.12244421942330848`}, {
      0.20123994058656178`, 0.20123994058656178`}, {0.28663988211205954`, 
      0.28663988211205954`}, {0.3704807786936793, 0.3704807786936793}, {
      0.44868099767835984`, 0.44868099767835984`}, {0.533485437025285, 
      0.533485437025285}, {0.6126491987752708, 0.6126491987752708}, {
      0.6902539155813786, 0.6902539155813786}, {0.7744628527497309, 
      0.7744628527497309}, {0.853031112321144, 0.853031112321144}, {
      0.8543619323201075, 0.8543619323201075}, {0.8556927523190708, 
      0.8556927523190708}, {0.8583543923169976, 0.8583543923169976}, {
      0.8636776723128512, 0.8636776723128512}, {0.8743242323045585, 
      0.8743242323045585}, {0.8956173522879729, 0.8956173522879729}, {
      0.8969481722869364, 0.8969481722869364}, {0.8982789922858997, 
      0.8982789922858997}, {0.9009406322838265, 0.9009406322838265}, {
      0.9062639122796801, 0.9062639122796801}, {0.9169104722713872, 
      0.9169104722713872}, {0.9382035922548017, 0.9382035922548017}, {
      0.939446276666313, 0.939446276666313}, {0.9406889610778242, 
      0.9406889610778242}, {0.9431743299008466, 0.9431743299008466}, {
      0.9481450675468914, 0.9481450675468914}, {0.9580865428389813, 
      0.9580865428389813}, {0.9593292272504925, 0.9593292272504925}, {
      0.9605719116620037, 0.9605719116620037}, {0.9630572804850261, 
      0.9630572804850261}, {0.9680280181310711, 0.9680280181310711}, {
      0.9779694934231609, 0.9779694934231609}, {0.9792121778346721, 
      0.9792121778346721}, {0.9804548622461833, 0.9804548622461833}, {
      0.9829402310692057, 0.9829402310692057}, {0.9879109687152506, 
      0.9879109687152506}, {0.989153653126762, 0.989153653126762}, {
      0.9903963375382732, 0.9903963375382732}, {0.9928817063612956, 
      0.9928817063612956}, {0.9941243907728068, 0.9941243907728068}, {
      0.995367075184318, 0.995367075184318}, {0.9978524440073404, 
      0.9978524440073404}, {0.9987244897959183, 0.9987244897959183}}], 
     LineBox[{{1.0012755102040816`, 1.}, {1.0015804972418743`, 1.}, {
      1.0028231816533855`, 1.}, {1.0053085504764079`, 1.}, {
      1.0077939192994303`, 1.}, {1.0127646569454751`, 1.}, {1.01773539459152, 
      1.}, {1.0567217732879404`, 1.}, {1.0957081519843606`, 1.}, {
      1.1802851297394454`, 1.}, {1.2592214298975912`, 1.}, {
      1.3447619504179815`, 1.}, {1.4287434259944938`, 1.}, {1.507084223974067,
       1.}, {1.5920292423158844`, 1.}, {1.6713335830607627`, 1.}, {
      1.749078878861763, 1.}, {1.8334283950250079`, 1.}, {1.9121372335913134`,
       1.}, {1.9974502925198634`, 1.}, {1.9987251054436053`, 1.}, {
      1.999999918367347, 1.}}]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-2, 2}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.394759223499902*^9}]
}, Open  ]],

Cell[TextData[{
 "Here we  compute the derivative of ",
 StyleBox["newvee[x]", "Input"],
 ":"
}], "Text",
 CellChangeTimes->{{3.394760319643627*^9, 3.3947603402791643`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"newvee", "[", "x", "]"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.394760030247663*^9, 3.3947600443201113`*^9}}],

Cell[BoxData[
 RowBox[{"\[Piecewise]", GridBox[{
    {"0", 
     RowBox[{"x", "<", 
      RowBox[{"-", "1"}]}]},
    {
     RowBox[{"-", "1"}], 
     RowBox[{
      RowBox[{"-", "1"}], "<", "x", "<", "0"}]},
    {"1", 
     RowBox[{"0", "<", "x", "<", "1"}]},
    {"0", 
     RowBox[{"x", ">", "1"}]},
    {"Indeterminate", 
     TagBox["True",
      "PiecewiseDefault",
      AutoDelete->False,
      DeletionWarning->True]}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxItemSize->{
    "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[0.84]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}]}]], "Output",
 CellChangeTimes->{3.394760051837901*^9}]
}, Open  ]],

Cell[TextData[{
 "An important instance of such a function is the Heaviside  ",
 StyleBox["UnitStep ", "Input"],
 "function, which is a built-in resource of ",
 StyleBox["Mathematica ",
  FontSlant->"Italic"],
 "and usually plays a role very like that of an on/off switch: "
}], "Text",
 CellChangeTimes->{{3.395786136185748*^9, 3.395786149602644*^9}, {
  3.395786199536108*^9, 3.3957862131452503`*^9}, {3.395793543264426*^9, 
  3.395793584026923*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "UnitStep"}]], "Input",
 CellChangeTimes->{{3.3947604411753607`*^9, 3.3947604544466133`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\!\(\*RowBox[{\\\"UnitStep\\\", \\\"[\\\", \
StyleBox[\\\"x\\\", \\\"TI\\\"], \\\"]\\\"}]\) represents the unit step \
function, equal to 0 for \!\(\*RowBox[{\\\"x\\\", \\\"<\\\", \\\"0\\\"}]\) \
and 1 for \!\(\*RowBox[{\\\"x\\\", \\\"\[GreaterEqual]\\\", \\\"0\\\"}]\). \
\\n\!\(\*RowBox[{\\\"UnitStep\\\", \\\"[\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"x\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\
\"TR\\\"]}], \\\"]\\\"}]\) represents the multidimensional unit step function \
which is 1 only if none of the \!\(\*SubscriptBox[\\\"x\\\", \\\"i\\\"]\) are \
negative. \"\>", "MSG"], " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/UnitStep"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.39476045606262*^9},
 CellTags->"Info3394735255-1292831"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"UnitStep", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"RGBColor", "[", 
        RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", 
       RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}], "}"}]}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "2"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{3.3947604984816923`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {RGBColor[1, 0, 0], Thickness[0.01], 
     LineBox[{{-1.999999918367347, 0.}, {-1.9987731283177614`, 
      0.}, {-1.997546338268176, 0.}, {-1.995092758169005, 
      0.}, {-1.9901855979706633`, 0.}, {-1.9803712775739797`, 
      0.}, {-1.9607426367806124`, 0.}, {-1.9214853551938782`, 
      0.}, {-1.8363665716581652`, 0.}, {-1.7568884657193913`, 
      0.}, {-1.6789694047244954`, 0.}, {-1.594446123367355, 
      0.}, {-1.515563519607154, 0.}, {-1.4300766954847084`, 
      0.}, {-1.3461489163061406`, 0.}, {-1.2678618147245122`, 
      0.}, {-1.1829704927806393`, 0.}, {-1.1037198484337056`, 
      0.}, {-1.0260282490306498`, 0.}, {-0.9417324292653497, 
      0.}, {-0.8630772870969888, 0.}, {-0.7778179245663834, 
      0.}, {-0.6941176069796561, 0.}, {-0.6160579669898679, 
      0.}, {-0.5313941066378353, 0.}, {-0.4523709238827418, 
      0.}, {-0.3667435207654039, 0.}, {-0.282675162591944, 
      0.}, {-0.20424748201542325`, 0.}, {-0.11921558107665804`, 
      0.}, {-0.11797509321194202`, 0.}, {-0.11673460534722599`, 
      0.}, {-0.11425362961779392`, 0.}, {-0.10929167815892979`, 
      0.}, {-0.09936777524120155, 0.}, {-0.07951996940574504, 
      0.}, {-0.07827948154102901, 0.}, {-0.07703899367631298, 
      0.}, {-0.07455801794688091, 0.}, {-0.06959606648801679, 
      0.}, {-0.05967216357028854, 0.}, {-0.03982435773483204, 
      0.}, {-0.0386082299473641, 0.}, {-0.03739210215989616, 
      0.}, {-0.03495984658496029, 0.}, {-0.030095335435088535`, 
      0.}, {-0.020366313135345034`, 0.}, {-0.019150185347877095`, 
      0.}, {-0.01793405756040916, 0.}, {-0.015501801985473282`, 
      0.}, {-0.010637290835601531`, 0.}, {-0.009421163048133594, 
      0.}, {-0.008205035260665655, 0.}, {-0.00577277968572978, 
      0.}, {-0.004556651898261842, 0.}, {-0.003340524110793904, 
      0.}, {-0.0021243963233259664`, 0.}, {-0.0012755102040816326`, 0.}}], 
     LineBox[{{0.0012755102040816326`, 1.}, {0.0015239870390778474`, 1.}, {
      0.002740114826545785, 1.}, {0.003956242614013723, 1.}, {
      0.006388498188949598, 1.}, {0.008820753763885475, 1.}, {
      0.013685264913757225`, 1.}, {0.018549776063628978`, 1.}, {
      0.02827879836337248, 1.}, {0.03800782066311598, 1.}, {
      0.08022602004321223, 1.}, {0.12244421942330848`, 1.}, {
      0.20123994058656178`, 1.}, {0.28663988211205954`, 1.}, {
      0.3704807786936793, 1.}, {0.44868099767835984`, 1.}, {0.533485437025285,
       1.}, {0.6126491987752708, 1.}, {0.6902539155813786, 1.}, {
      0.7744628527497309, 1.}, {0.853031112321144, 1.}, {0.9382035922548017, 
      1.}, {1.01773539459152, 1.}, {1.0957081519843606`, 1.}, {
      1.1802851297394454`, 1.}, {1.2592214298975912`, 1.}, {
      1.3447619504179815`, 1.}, {1.4287434259944938`, 1.}, {1.507084223974067,
       1.}, {1.5920292423158844`, 1.}, {1.6713335830607627`, 1.}, {
      1.749078878861763, 1.}, {1.8334283950250079`, 1.}, {1.9121372335913134`,
       1.}, {1.9974502925198634`, 1.}, {1.9987251054436053`, 1.}, {
      1.999999918367347, 1.}}]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-2, 2}, {0, 2}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{{3.394760484391169*^9, 3.3947605073956127`*^9}}]
}, Open  ]],

Cell["", "Text",
 CellChangeTimes->{{3.39476055247302*^9, 3.394760552487679*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Equality Tests",
 FontColor->RGBColor[1, 0, 0]]], "Subsection",
 CellChangeTimes->{{3.394760588735943*^9, 3.394760591022396*^9}, {
  3.39673996916293*^9, 3.3967399708909607`*^9}}],

Cell[TextData[{
 "When you intend \"equals\" in the familiar sense, ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " hears you either to be ",
 StyleBox["asking a question",
  FontVariations->{"Underline"->True}],
 " (are the expressons on left and right equal? to which ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " will respond either ",
 StyleBox["True", "Output"],
 " or ",
 StyleBox["False", "Output"],
 ") or to be ",
 StyleBox["stipulating",
  FontVariations->{"Underline"->True}],
 " that the expressions on left and right are equal. In either ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " expects you to write ",
 StyleBox["==", "Input"],
 ".  Here are some simple examples:"
}], "Text",
 CellChangeTimes->{{3.394760800105929*^9, 3.394760911249189*^9}, {
  3.394760969532983*^9, 3.394760992391651*^9}, {3.394761052484405*^9, 
  3.39476108742463*^9}, {3.394761126117687*^9, 3.394761203851124*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"2", "+", "2"}], "\[Equal]", "3"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"2", "+", "2"}], "\[Equal]", "4"}]}], "Input",
 CellChangeTimes->{{3.3947612226160297`*^9, 3.394761233679737*^9}}],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{3.3947612411024237`*^9}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.394761241113964*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["\[Phi]", "2"], "-", "\[Phi]", "-", "1"}], "\[Equal]", 
   "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.394761268170035*^9, 3.394761302874194*^9}, 
   3.3947614139017477`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Phi]", "\[Rule]", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SqrtBox["5"]}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Phi]", "\[Rule]", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SqrtBox["5"]}], ")"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.394761313293334*^9, 3.394761369100924*^9, 
  3.3947614185641327`*^9}]
}, Open  ]],

Cell["We ask for the numerical values of those expressions", "Text",
 CellChangeTimes->{{3.394761452697846*^9, 3.394761460233429*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.3947613617549963`*^9, 3.394761364092197*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Phi]", "\[Rule]", 
     RowBox[{"-", "0.6180339887498949`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Phi]", "\[Rule]", "1.618033988749895`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.394761373269158*^9, 3.394761425310895*^9}]
}, Open  ]],

Cell["\<\
and observe that the positive root of the equation in question is precisely \
the \"golden ratio\":\
\>", "Text",
 CellChangeTimes->{{3.394761469203059*^9, 3.394761511608721*^9}, 
   3.3958917091305923`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "GoldenRatio", "]"}]], "Input",
 CellChangeTimes->{{3.3947613284983377`*^9, 3.394761333845315*^9}}],

Cell[BoxData["1.618033988749895`"], "Output",
 CellChangeTimes->{3.394761335388496*^9}]
}, Open  ]],

Cell["", "Text",
 CellChangeTimes->{{3.394761845038781*^9, 3.3947618451321507`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Secondary Flavors of = , and of Some of its \
Relatives",
 FontColor->RGBColor[1, 0, 0]]], "Subsection",
 CellChangeTimes->{{3.394761872119897*^9, 3.394761913838388*^9}, 
   3.395891872797832*^9, 3.39673995991052*^9}],

Cell[TextData[{
 "Constructions like === and =!= (its negation), <, >, <= and => return ",
 StyleBox["True", "Output"],
 "/",
 StyleBox["False", "Output"],
 " as output, and are ",
 StyleBox["used mainly in ",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Mathematica",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" programing",
  FontColor->RGBColor[0, 0, 1]],
 ". The first asks whether the expressions on left and right are ",
 StyleBox["structurally identical",
  FontSlant->"Italic"],
 ":"
}], "Text",
 CellChangeTimes->{{3.394761945144499*^9, 3.394762039416852*^9}, {
  3.3947620899707117`*^9, 3.394762122435789*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"3", 
   SuperscriptBox["x", "2"]}], "===", 
  RowBox[{
   SubscriptBox["\[PartialD]", "x"], " ", 
   SuperscriptBox["x", "3"]}]}]], "Input"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.394762180589493*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[", "x", "]"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "x", "]"}], "2"]}], "===", 
  "1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[", "x", "]"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "x", "]"}], "2"]}], "=!=", "1"}]}], "Input",
 CellChangeTimes->{{3.394762198512814*^9, 3.39476222656266*^9}}],

Cell[BoxData["False"], "Output",
 CellChangeTimes->{{3.394762208321574*^9, 3.394762229136787*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.394762208321574*^9, 3.39476222920999*^9}}]
}, Open  ]],

Cell[TextData[{
 "In the latter instance we have ",
 StyleBox["equality but not structural identity",
  FontSlant->"Italic"],
 "."
}], "Text",
 CellChangeTimes->{{3.3947622370910273`*^9, 3.394762254068281*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.39476236598142*^9, 3.39476236609418*^9}}],

Cell[TextData[{
 "For more information, go to ",
 StyleBox["Help > Documentation Center",
  FontWeight->"Bold"],
 " and in the search window at the top of the page ask for \"Conditionals.\""
}], "Text",
 CellChangeTimes->{{3.394763808428479*^9, 3.394763836258668*^9}, {
  3.394763874507114*^9, 3.3947638771658373`*^9}, {3.394763907236014*^9, 
  3.394763925315814*^9}}],

Cell["", "Text"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Clear", "Section",
 CellChangeTimes->{{3.39476238345017*^9, 3.394762387397441*^9}, 
   3.394763455471149*^9}],

Cell[TextData[{
 StyleBox["Open a new notebook",
  FontWeight->"Bold"],
 ", enter ",
 StyleBox["f[u]", "Input"],
 " and discover that the definition introduced a while ago is still in force. \
 It lives in the Kernel, and so will travel with you from notebook to \
notebook until either you explicitly discard it or terminate this work \
session; i.e., until either you  ",
 StyleBox["Clear ", "Input"],
 "the definition or ",
 StyleBox["Quit  ",
  FontWeight->"Bold"],
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 StyleBox[".",
  FontWeight->"Bold"],
 " ",
 StyleBox[" ",
  FontColor->GrayLevel[0.666667]],
 StyleBox["Now close and discard your nameless new notebook.",
  FontColor->GrayLevel[0.500008]]
}], "Text",
 CellChangeTimes->{{3.394762506706876*^9, 3.394762536820219*^9}, {
  3.394762567892398*^9, 3.394762593024033*^9}}],

Cell["\<\
\tRelatedlyt: suppose you had interest at this point in defining\
\>", "Text",
 CellChangeTimes->{{3.3947661903307734`*^9, 3.394766199725913*^9}, {
  3.394766240550461*^9, 3.394766241854388*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"distance", "[", "t_", "]"}], ":=", 
  RowBox[{"r", "+", 
   RowBox[{
    FractionBox["1", "2"], "g", " ", 
    SuperscriptBox["t", "2"]}]}]}]], "Input"],

Cell["\<\
To check to see what you have created (always a good idea!), command\
\>", "Text",
 CellChangeTimes->{{3.394766264305216*^9, 3.394766280096146*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"distance", "[", "t", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"r", "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["t", "2"], " ", 
    GraphicsBox[{{}, {}, 
      {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwUV3k8ld8TtqfIvu/7vl0u1/7OXV2KtMnSJoVQISSRLNmSsoRQEWUJlRAq
DsoSUVG2voVUiGTP/ru/v+Zz3jPvzDzPnHNmZt+5E/KnmJiYWJiYONn+Ly0b
Ze7mb9xQsEjZu6sq5qEHds/zjKw653PM7qP3+cCaF9hjT7WC8uBG7GyXrvyr
/ZnY86Sdh8eMUrEIew9lGb4arMGTw8NPrwVLahDVtvXzwppzt2q2hEOxjPVk
HbbjDljr9XVLako6lmeR5HFd3BrrCPnXnMj7GCv05unt3PLEuj0W6R8T27Dy
qHevslgFsA8lwb+4o/9iz0g6OjuatbCe3GX1x81h2PPKM8Tm7c+xTxmBPvtZ
dmAv00NZH1+Zw/quz5cvQTqG5jZSkEwNNhDtN3s7XBFrfq9x2buvBhsK+Ys3
f/UEaxk5ZnL9pzj2zWOqNsq0HXt3uzWIt+MeNvzY8LKg+SPs/d2+uFSPZWyk
JODeyaFZ7GNs1N+xq1vY99y5UU6Jy9jn24aXVH77Yb+uz3jYZWRg33Lfb/Xd
7sbG43Xico2+YiPsg+84cM7YRPSZ4tnPStgoaXfht3Zp7HfI76lbQk+wsXcP
hB0VKrAZj3G/oeS32KRkfE3lhB32F5fanp4Zh/0Ouvhy2fQh9vexgTPmqYVN
fVyeijO3wGZL/C8lb/PHZq6Xf7stm47N5/6tx1M3sbmQ+GpK5G1sQeam3X/C
edi8Ynv7QMkbbCFH99vVHxRs/m0XW2RcMraYcY6pL/oatsiX9WPvl23Y8vVp
ckizGLbsm5P91KoM+8eV2KuY8gJb3jh4/t9iB/YvXutk54mj2L/od/Fu/trY
SrR3jAxzAbYSGZeNMuaxVRYukZYPVtjKP+GEO388sdXwksJzuZPYqvvi99Oh
a9hayERbI+CwNV2H6BXxQ9jav3gnL95ebC1Ox2Mx8xS2HqQ2KfAtGFsb2K7T
4ROLrc+3hbx4LImty2eyCriHYRt+nlwnL9dj665J577ncGEbM9tydtq5YuuZ
9yOD1FywTZ9CrWoZNmy9JXGSg/oH25ykvTo6XYit/94uslZ+B9vy+Gm37ZUN
tsH+yYniNoVt/RVZPLGFwzZEi/Y3/ekBJnPFrmNyidiGdJRlXMQPYLpirsDd
eIWxL9PKt30vML0+EFh3IgDbYDPGh43fAWZOn3ZPVk9sfSz5+s/zwcC8+6q0
cMFhbP35bP1Yficw37zj20y1x9YvK9X52RkDc2/Va9+fFGzdaC3792NuYBHr
EpOJNcbWRne3UNrKgOXwT+9ONS1sLXyBGXtyDVhyNxsutstha7wf02qT7wPL
D1FBVS9BbDW523Vq0BJY1XXdP3FxYKvsn1fz6z2A9YxVXeSjVWzFe6jablYQ
WJ8e59Hb/Qf71/zp9ZL+G2BdDHb9b3oU+7ezGVsRdgM2k5tV15I+Y8vWRcYZ
EvrAFla83UT3LbZ0Iek1QfQIsLMPPEnzq8AWiguNE6ZNgN16jo0k8BCbL+d6
bNGYBexJOw7NPMvC5go+/7eX7AocIqZbNosR2F8v6+ZYzibgcN6/7196APbH
v3isrX4/cNz1fviQ4In9XpYMWj/xHLap5NgxX7THflYpOuyVzAROo42c5xty
2GftdkPdtWbgvCT899RdIax7NFC59vUEcDboUAQxTqxZTJag9JsO262O/j57
ZaahLK7FnzowBDsOIVNltvqGb43i97jqeIA7OLIvhftIw7LgXoGql6+A+2W2
JlZm37DCceT59ZOHYSfTs8vTdpSG1dVQHPtgA+yMG1Oh39Rq2Pyuab/InQY8
t6kBW4LriHUv8YXJtB7wHWHbbrTzHdqRLU8W/tYGfKFdmQK7PiKuk+LbQg00
gS/ntsqf+H7ErRbhZKPMA3xfdCiF7GNo5/2L2htDc8C39q8nijyJeA4FEosn
LYFfsvnEsYi/iJfjhRHnrQfA7+J4RXRjHfGpR81xkXyA/5Iiz4I5C+K70Hgx
ZGkG+LOm77wP4UR8TZlHO2+lAX9djVZpDQ/i3/5rT7nkTuAfjHwRtySI+G2v
V5SuGQL/qq3NKbwY4r/uXbGwNgACEqIDRH8ZxN9+Ytcv7hEQcCpdWvmjgQQM
5ROK696BwMULVz9r6SGBk0/uisldA4HbJKEKLyMkcOOHGbUjFQRqufOTisyR
QPUD4UXCORDo79P3+klCAv2f568PXAWBf3mNVkp0JLB0osrA1h4ExXzsFU/Y
IUFenGtGsD8IGht93co9gAQVtXWiaXwg6Mh8ZuirExLUJyaIlwSA4IWO9Rqp
o0jQ3EXx5TMFEMxIv5bmfBIJEj0WKi9ZgeBzVwnfTC/G+hDdb/YiCPZpFu/+
7MvQF38d7vcaBJeWjNWFgpAgLs9X2LYKhERQK/u+UCQoP/LCPkALhIyuHRy5
GYkEubtjOKPCQMjh4NirrjgkMOeqQir+BUJBcuezuJOQwMeks5Y9u0Do1m+W
IJs0JFBmXyFVrwtCVVXJ++KykEDk/Xci5X4g9OmKnE7LPSSwL0JlT7IgCC3a
POZiK0ACUhNV+pE4EBYWtvhFKkH8I1/YXV9/BmH8t87mK08Qf56TqYGLNwgf
KHG5V1+N+F1O8tfe8ALhgIDJS+svET8f06+DfY4gnIZddDRtQnwNhlW9j0gg
3NObwVfdhfh2xu6R4ckG4fl7ylMLvYjXyddvuicVRARPV7brDyKe6/uqTiq9
BZF9mx8jyn8g7s87t22LjwAR/3bXI1OTiOu3akixYBGIpKT+NdX4i3YsWSnM
kbaDyEf1nXMP1xHnjKX/uf3aILp3v7XbPSHE5ueUrpn/AUT9pPux/yQQq1nP
wYvZCiB6c9xDSlIOMW8sFPU92gTR92HRvRmaDZu9fhNirVYgtqcQUW+QGuY/
uY+dERUEsbMfiyttrjTMsgpc4Wr7DmLXN1IV2esbpmyChzNqfUGsc787U6hp
w3AqZffluXUQp29xvThtgHV92BiLt2kDCZLDIRxZCdvQsx5VeWQCEq4RcG/z
BDDpp3+y1N4OEldKNXhqc4G58x1SU+sAiQbm9Sk9KWDb/NonF5IPkmZl9wul
hYHLtu56/pMJkDJk+yO1zAGC2eE3OLODQOqAbt+1CgoI2YbpNz2ig9R5Z7R6
JhKE1taXUnFyIPX0SWrf900Qsa34fZepAKTeD4XR7pmDyN/I3IrHLiD1l8O9
yjkERG9sy9bTWQNpncMmKe+XQazeB5/4+hhI28YqMicagbjdb9uLvQMg7VPB
7WsVAOKDR1/m+x0B6Ufbvtm++gsSI94Du068Aem3+m0vL+qA5OHSxu9f5kB6
4kiFJt4HJD/qpZgT/4CM6rOrnCXjIPXoMHtDhxHI0L6eveCuAtI8lU5ux5ZA
xn37oZ/yJ0Ha+ymvzNwWyFzFEw98uQ/STdqD8UPqIFNwTKM5YxhkBLZ96T+8
B2SaE4T098uAjIv0k7hT4iAzWrmRx3MYZO7sCagbswVZ5m+/eNuzQKb/cr8R
/jbIyu94fzl6AGS5byjx6P0GWTCsnQYxkDU5Rf2TMQuyx47nu6w5gOzRX4Ns
Ie0ge/la4tvqNJAN3cJHxbOC7J3qIBO/jyCbesvrteItkH05cqxImw9k76e7
LBtfBtkv3NYi43YgWzxTe4Z5C2TXCPpX8xMZ62Qe76/WILcTt3NV9xTI5nm3
pt3YB3IyYg9ih3aD7I2XFm9XhEFOl8lCOBYPsgHto7U1eJDDfvXmG0iBrH18
jxe3KsjZd/vofWMDWYX537x5EiDn+py1PmEKZKZY3roXD4Cc/93s3UY9IPPo
2VcQeghyUTH6A6N1IHNi2ynju84gl3bmrUfSfZDhZQrIaPkGcg8Oui6aJoB0
RcH6/klFkKs2X4n86QfSuzfemrBogVyrUjJfiiNIfRVJ1B14B3L93Gp3LQGk
Tm18yH8hAHLj80hzUg0kx95ws40vg9zK0KHadD6QdL6S5H5RFuQlS2J6p7+B
hCZelJf3NshrpcicuN0C4jFuknkOPSBvcbHqL7UcxPoXjjz3SgP5Y/QfXHcu
g+jJt/UffLaDvK9e6G1rdxC5e8TTUVcY5CPEhFQWbUG4e9pBihGI/P1fZJKt
FAhJ1ouvbDMG+Wddg90rbCBodELBMC4G5F9X+x8p+A0C1u2vUvdXgPzPq3nB
63XA59Li/DicCAoailuPS52A0/3465D7s6BgxpVh4QjAYWjwnwYWCAq75nU6
2NSAdSV1cWvAHhTONB356fIP23ybL+NgdxQUnh5/Kc2Vjv3y6EpTtRcAReM7
wQlePQ3rHn8+5vEIgaL1VT4xkTrE1EBwO8BnDIrOPoUPmu4jVhuVh332L0Ex
1Oxzo4Q/4jws5hp5/wAoNgzil9/yIX7t/PLumGOgZCUye0rdFkncOBdz8RsB
lBz+exF4bRVJpu7F28ypgpJ7wdWrf4qQVPL0ziNKq6AUoy/+sJINyVzWv9Dy
dico3fr3/blIBZL1toPS1hug9KChrPXiMSSnznZqjF8HlN7YEsct65A8+4Nh
5ZwAUPokxPUvzxPJny3S5C7dA0pjg5+3swkj+Z4lkaD0m6DM5uml3u6LFFJW
8H97pkFZSBdvqiWDFKb8i/aOVYCy4uKmTVIHUiQiu9v/nQNlclSK9wEVpPjN
66IbsQ6U99scvlTdi5RUU6JFBBtB2Y1fJVE8Ail5K3+leL8FZf++vzmhOkip
hPtjVPQgKEferSv9+gUpjem9xMUZgnLKqehXxASkLB7KgzjsQPm+lt27AmOk
bD14uN52FpSfzot95fiJlAONj+ZdooFyY+3on9OpSDk7aoWu+gGUP1wp3ewE
pPyylEKo3A3KI1YXeHX+IOX+vBvJhvWgPMtDlE3OQcozB0+/lNMEFaZPXLoL
NkiFqa7g9ZAUqPBlfwKHf0iF+43LmcvbQEXuxD372gdIRdBrcYa9FlT01E+7
Su1DKkL3dU67/wIV7K+BXzgTUuFzE2Za7AOVPdUbESPlSIWjULDw8X5QORbW
mkJxQcrLnrPJrD2gco6SfL+QEymPFny2G3wCKuFcLs+2VyPlNsfd6beVQCXp
o3Kzz0mkXBRJKeM5Cyp3M2d6uvmRcpSiSLD5JqiUH6sdw9UjZUfzKCNeZVCp
V4laSPNByqofqvuk5kDl3bQd27IEUpr9RV9HXKDyX6WYsFMrUqqOsrj9lhtU
pkNGlV8GIKXAMnZD635Q2SCWGskqICXdM6FdY3GgupMziBbxHil+75o+ebQX
VKW6wWHsMlJM+Y9LjNsHVM0P914oHkAKI4Y6p66tgOpuxbtx3DFI4cqdQhnx
baDqMumZeQ6PFCRmyr/XPATVSxfWa/E3kTzkpAgOvwLVa5Yt7RmWSK5Tbnxw
+h2oZrPfHFj5jeT2jdQrluBAtS5VabWBhmQKFrmO/LgDqm+dZrjkF5B0xk6e
qn1BoDooVysZnYekrpw1PvFtAVRXym3NrdeRhMnyL+6GBVAzbg8M661Awnvk
/9rI2YOa9eiJk1eLkOBP4vHs9wBqzmt7dhndRQKBdy4YcE6AWpi2ulhmAuLZ
UOvpxBxBrfHml2eH3RBLfNb2n8FSoG7jSB4fE8Jm/pt6NrnbGtRd/PS6b+3A
lp5PHMt6egDUfRKkq2lM2EbU+cowfTyoJ71YjiqcAvbrendzfURAvUf2kYz3
G+CPmqz5QGEFDZdfAvvng0Dm4NABMzNP0PDZ2jIt8AHZz/lFvoqXQeOy2JT8
wRMgVyTEPKexCRq5Nm/+PLcDBeHmyrLMW6Dx1K3ikycFFFrMBWrQVdBoCr33
UtwUFP3Vdl3fZgYaY+UX4y8x3o0XYaY2tddAY7HV3VdLBpQdL+5plmoBTY7h
/Q7/CYHyXz4F+2eioKkuoK2EMYEqD5mdqHsHNE01JXbMLIFqWph27cIMaO6i
cMzmToGaUNJJjvLPoHkmcLiBpR/UmaOsHhMY+5eT3j141gXqZ/m7WF+EguaN
wrrEk68ZuN/hvAf3gGYuKjwvXAca+jf2VsXsBM2nA2lOLU9BI8FgRsWU4b9p
LgIuFIHGYObzABUR0OzlOquqdhc0Fe/sM+VNAM0fSi47B9JA85Siz0iWKmgu
WVgtJDC+3+N5s9VJA61tDvghsyug+YFqLNuRB1pi5+Qbp4JAc628eXnpMGip
x/EU3fEBLRnDLPaHPKBlmrt2w+4EaBm3KCYKrYPWrtrxwC1HhtyzY357D2gd
/vjp8BM70DrYSI6UpIPWmd9NZFcKaDny8QVeUwCtcLbHGgJmoLUPx3X6Vzdo
3XjX7szcBVoU36ZvVuGglZv+PX72OGjpNOqPDj8ArafHNmqH50CLXxY/9uwe
aDWpi068jwbN3/HfSnY0gdbHOX1xxMBdz5LAzWkOWt9f7LZ+XAyacYnvBK2O
gdZCtPtFRj+nuUvn6jm7ONBmt71SnNQFmuwzvfRXRqAtIpI1cPk4aNQMyZ7Z
KwjaKt+qtp+ZAw23Db5P3IdBm1DUbXIkGjS2nbwVvhwN2nS/idO2oqCerzBU
qpYE2k5mrLfNS0CdsMvebfI7aHuxSbdrmYNa83zOSYFp0L6Wvk+d6ziotir7
Xu7mB+2cYz6Oq3OgavFjT4TUM9AuU4uJm4wGlbLkor4bD0G7q65uvL0YlIPx
0oGrSqD9LeqTWK05KPX43dPemAftv7tn6EVdoKSm4Wi2xwV0+L8pFsXOgUJ9
RQYPxw3QUSiy6L8QDQpMA7dk942CjoGfI6eHCKOP0Hjo2CgFOgdZEz1pZiBr
I63e5IGBTqbqohpbNIidwyXHnWkGnaJZ3kMLIiCSF+pY+SIVdGrr1GO/F4FQ
R0Si6ucA0BnafeRX0zvg5yxmya95Aroyvi2FESLA4rXaGRv0AnQLajNVNoob
GCPPZd6QWdCtiqxwmDZHLFcD1AsftoNuy67OmC9diOPR271BW3yg++sr088X
c4hnNvX2p1dfQE84At9jIYNEc/2CF3lbQc/xwZ2UNQ+kGNIq7UUvB73jF5un
7NKQ0p5Hl77StUHP03aSmoeQstz5U//NMPYvLBn9o4shlcqegaa5LtALf3tk
bzYFqQYzp9facoFe7N2okj++SM3IwnW/iAfoZdDeH0lrQ+r5QicXdLtB757E
UvWvBaSxd/cmMZcb9B7OSPOZySGNla4rPCdWQa8643TTSDDSMl5Q7mq9AHr1
3jel8AVIqxu7VMYWDHotWHVg7HukfUzBSGLXMuh9GmdV01FHOt5cEcxPwkDv
v5fqEREOSOfn60y9tiHQ+3Fzz2BvJNJ1CSGIGLWB3vTJILxqOdJt3x41Ggyg
t2iccz1kEOmJFt2PvXUZ9Da4m352cSA9K7HFK0wHAMc2PAHy+kjPv6Uzz7oI
cNxVvLcDjiK9rALRKotngBOKN5xrTUB69flFzTc6ASd15PBuiWqk97XWWMyD
HXBKuMgHZ0aR3uqAp7BbJOC02Is2G3kQTmClrWN9EHAGA92OQqYIp8o3dFyF
Yd+sbPGphzvCEUSE9Q0Z+uRIqR11KQhHZh7t5voPcLscSCd31iOczbuSBwXc
gNuv4fnq+G+EszvfHSERCDjnzRsilWIIZztT0XLaGHAnPlb5bqMgnLVFdaAw
Ix6vh0Ptzr4IBy6Wk+JOgPO/xKJQloNwBrTKk37OgAvZoxbK1IZw8lvRNsXp
gItUtPu0fwHhuGMU9JbEABe/HKhTKIf05r5w3jvUCrjkjuzY1d1I7xNrbYY3
I97b9xpHbIOR3jOm+oHruwGXd37cNLcA6SX2FU9sTwFcMZ0ndf490juRJNit
Ug64p1L4ado60sNr5OQMNwGu5q8LLUsN6TFXTj4i2QEOvY64N30A6aZ778cX
SQHuvU/XvtQypFMQHeSSXga4flh49HMQ6ci2/ajwPw24YWFJdlMOpJ26v3nv
SjbgZl55PB8+irTcSrWvLDL4Wk5O4jdIQJqomi7nxPC3darSK6YaaYqEjyTv
nAd9Xh5maW0epF76LZFj8y3oi4yqBl0xRWrTjYY9HyRBX6batrvHHamprlyJ
q7kP+jpHsyIv1iOVeLGmc3l2oG/72OBXyzmkyCq1U2FfH+g7aHmXAkLyW8Do
BudA/2hxvu8LPiS36Djno8wB+ucKBFYeP0HSeSxKJ5IVQD85c44rcw4J3So4
VvJCBPQ/RT7R9Q5q+FijEVAX0wT6/239mv/Rgn2yTjTWE3sP+j/DZGuOi2J/
Kh+I95K0QH/5wg3igRpgriuvnlJWAQNxn7P7LVZAYJTZ1Z1RDw2OOGhd4AsF
RcFHBziLIsDgVM9Js4ROUCL8+qcTwAwGZ+1zmNilQfnQ6dLyDiUwCN/FFbdS
D6oxPyhPj90Dg9g2sm0AD6ilGxW+MY4Cg5vUS/x/joH6vdDdX/v7wSAPm8z6
zgSad+8/8Tt0CAyKXykcO2IPWqk/kz0usYNBhamzYl8eaEf8UNe27gKDZnx7
aScJdGlTZt9FY8Cgo4LZj5YCejzPzLetW4BBr66JIRoFvcCGxMFGhv4P9aL6
qijAGTXj7K0awWD64XCUbi/gboYKf1cNBIMlJTGrEiXA/Yg9MX05Ggw28+y5
lQJA37BtvOS/F4DfJhP7/u5r0I9Qrve4xgV43uyGW+JCoN8avcumThjwYmLL
TqmnwICz065l7ijg5dJ1ZXZWgwHl53jZpDLg1QXdR+M4wOBSfe4Pw/eAx928
W8jiAAZl2Nlaqj3gTXd+9g4tBIMBh4ZOsjHgSdd4dJf+gcHW/OW70b8Bv4uT
uuBHB7w8h1j5IT7A778aVvM7E/DmV6K1eSQAf5ilKuzUBOD3OVCtjusB/mT4
NHHYFPAnQv23tNgA77OhzOGcwJATL9L+PAR8wMQSt54l4P0CKird/gN86OdW
AfZZwPsum28vPgH46OZM0aECwHufSXMvYQd84pPT0k8dAX/8E+FxIAJ82h1T
xVgGD3u1Rr0zVwGfk8ClfrieEU9AKudOAuALgr7o6vsDXqEsod14HvClbmWG
nAweWAftfGKnAF9pf9n0P0bev20+vGjCiP+lxR54lggGz2XvgZAK4F9ryNHi
MTCIJ8fFd8oCvlNkdvfROTBw8FuYnzgP+F7Wpn34h2Ag86xmXcMT8EN/Ux13
OIH+qMBE3RFdwP9+a+hWhUDf2VFmyC0L8PPPOU5fY+ST1/HK1e+JgF/L7zvn
qgq4hkdsTx1MwZAr7OIl7iTACcQlnQ5tBUNBL5sro0TQqyJkG3woBEPJQ5Ix
zxdAb/+VDzXBVWCoqfcqxc0FdDnOKCdFxYGhgXRSpgkP6KjnVrEfCAZDsx3H
7vI0gTbl1UW3pAwwtBljLq5TA0238CTOIWkw9MqgNvIx+lFrg7lbtCgw9I8W
aflZAiq4xy8XeMbAMMT3V+fLI6AsOIo26hrBMMEmvt/jNaM/Dv7t1PEcDIs3
3s3UJ4Nkv9DOA4n8YDhx0kHGRwtb69VctuyPBSNPnPulVjfGvBKzuV9NHozO
LdmpmJ9Eikeu7bghUAxGF14Yvn/qjpRy+ndm0p+AUSyVXTnbE6nyCia9quQH
o4eO+d3nziLN2tIP8cd9wKhc+trFMV+k9flm+Q+ldjCqGj2v5OSHtKdPOP0s
cQWjNz6ki+QApMc6RBwb0gSjsfARRdEQhJsfVerdJQFGU5S2d4mhSN/dUSOD
NRKMFrY/CWYOQ/q9DYWkHS5AYE0N7/x9BRkUzPyJfsoDBC5HjwvHIxGeIyLi
VtoFIAhK75H/FIXwbuka/xRjgKBQKBPUEIMMeX+o7+pSBIKGD4c8Pg4ZHv27
6wkvCxD09aY7iuORYbGc5sr9O0AwWfwUJJOADP8c+6lQuQQEYt0rudREZKST
Xc28owwI1uEFHZxJyOg0Wq+/OwOEvZTEwLAbyOhePY13jyoQnLYHyM7dREbv
o2wV1A4B4XiXy1uPFGS0zsy8e6UNCJ6p5IAvaYigoJ7gO7wOBF9HTdm9txCB
9NdWJJURT7C0QHtLOiIctf5DJIwDIXxkNcAsExECtByW6uWAEPtwVOZJFiJE
Jz0PzdkEwg3v9nblbES4cTqBzmsDhAy9p+ezchAhrTo9d9gRCHcXb8vw3mWs
fecW/+UB4WHdlbboXERIusUxOsEFhPJwT/+VPESIkkv80dILhGqKvfTZ+4jg
L5D6+mUlEOq3E1q/FyCCi3f4/XZGfG+6ZP0dHyICpr2j2YCh/y51m9S7QkSQ
dqauueCB8OnQn1ZSETJaXM78GLsHCP9JffZ7XoKM2nc07rk2D4SxkXoprVJk
lJ7VE8AXB4Sphw9a8sqQ0dEnxqe8GfwteF/3EylHRvIHysi8T4Gwrhcoee0J
MvyaSiwpTAFj1sXDLUwVyDA9+ODEajMYc9VRfAOfIUNr/syvPw+CsSRF8M2x
aoS/e2fYSMEajBU518711iA8seLZjV4yGGu8+y5hXYsMvjXYiuy6BcamhyrO
GbxEBjv5oRBugrGT917xbY0Ipyui2M2498auAzY6+T+RXh5PY5K8EBh7WZEp
wI30eJj/TF0+AcaXFA3PBTsi7YrhPf4LQWCcMyT+ZnwGqQW+bZBZ/AvGD6wF
hq4KIVUBYnffIh8Ylz3nmpU3RcqFDuHXnziDcX3KppRTDFJ4+eV7bt9hMB62
GfV/K43EYbRf06kBjMdrhuLcSUhE/InyEx8TMJ5V6b3L4okEJvXW76hcAxMW
lpZ200rE+Tu1tWlGGUwU6x7JPtqFvVmaFFDOrQITD43znYkXQVLu0fm1d25g
ci7TZ5QxX8oct6rYvF8HJsEcp5Zfvwa5zre8xq4/wCRu1FFhgw8UV9tTb59M
A5OSLPOLZwpBQ+ov+/Hc92DyjNPwxvZO0Ez/XBqQeAxMXgTpFDyYA+0dbP1y
oZ5g0rlPrvurJegOxrXdsD4JJn92sKvYfQL9RPe/C6ruYLJ0YdNschUM1Jpi
DZMawGTzx/LeWDkwQFrP1ZzzwJS3cSK0wQfw34LFMcohMBXTHU1xSQFDDxao
Hj0LpnJ3hgqXa8BwfJqj2mEcTHEX3/XosYLREE0f690Fpia/WsY71YCw6/Q+
0t5sMCUdbNj0tANClUPO4BsmMLVprhViCwBjsalL29/dANP9uAr13CwwDuLa
dlYZganLvUeYOQLjzjQx24O3wPTkzoID/T/BRMrbWjnfD0x9Lt3xCuQGk1NB
rC20C2AaMJF+hR8HJoXZcZMb62Aa2qrWx8ng9du2Zo/aSjCNLnihw0QCUz47
UexGEpgmRtpGL3eAqdnR0cbwdjBNO/ZtaOYAmB7X3OxNDgDTHAt//Z9fwPRy
UfMu/ggwLZBki/96CkzT3+4YdGfoP/qXPvzpD5gWxRhV2yqD6bPP6oR3QQz5
Cdd13B1MXzx7kfR6C0xrnpwvXWTgaU62/fEyDkyfC7IsOTHi7zg7bF7JB6bl
Kxdi77iCac9u/9RHt8E013Udb/4STIc02CbzFcD02m57+b8Mve/bMohZJWB6
rra1SZkKppM/1DNTDMDUtszW82EYmM41vZiJZ/ynrOkaLpgApqu5drQIKiPP
phIHJnjBjCVs+E5wF5igEcVrE3FgtsPFf8HXAUyuqr+S6z0PZgIm7Ls8voEJ
WaaOz5cGZhIiGfePeYLxaufl2+yiYCa/oL7iwLhHpbApFuYKZrjHdoU0xju0
/up5cudDMDNJHN60uAaE7IlruyufghnR6/xBQyEgGCrSrj3dA2Z7lTNZlZTB
yEHMYG7XYzBzYtVwliwHw68s85oZ0WB2fPjlU0EjMDzuXCLqEgBmvtkjx1gY
/dOBhk/+a/pgFnzxfNXKBzBo5dSUsfoPzK4c4uCedQYDvIGOTBDD300Bjbph
b0afX1Vy//cHMHscFyBSnwQ69flzyTK3wey5O8eZalHQdhK96KBYCmYN5MzX
Zbmg+Tvv1lCGH5h1bb7yz3kKaqu2yiaqCMz+BHJ0hfSCQmuNpqTdEJgt7but
7H8E5LViE16OM+LZ1NMMPf0TZMUShM4IApjv/G2v4bgMYqEa/g8G2sBc2/V2
DEEC2PvPk6EiEMx97LQs5o8jvv6NN5zib8A8oPc9k8BOJJRtavzA+wWYh7mc
b9KrQ2JO/TVhxv/APMnzBe2sEJJtnUp5XMIK5k+ibOzG25CqUn3FmPM7MK/d
/od/WyBSG/d+FBmEgXnjzeQeFQWk8ZBbO/tGOph/vDNwyC0U6eyUnuhoPgzm
CzWex77qIX3LPW/Lav6A+QbGLb/+HzJg2rhV4XUfLNjfPB6TTEAG9c8GCl2+
g4XIx2VPxzFkqOHQrDepDRayTtkaF5KRYd8nx9O+EWChOmw5lW6JjMKveGzP
xsDCeDrGt4dRH1/ePHnVjxUsiAEa+nNUZLw39f7O4d1gYb36bpFvDhkPMwkR
3y2Dxb4Iv+e695CJR7HJA41ysHDhFL5otxuZjJ90jygeAwu3pFoznxVkeoLz
o76qJlj4CB/euPYQmfaey598VQ8WYQoFEe1MyOz+PE/ok0ywuFpMJ/8qQ2ab
nXxxj9fAIkl3ioPDGZnvGz7+6j4vWKRX32hT3obM7wlGUr9/A4t7FgYJ5Epk
/n2Xurm5MlgUNvftPuGKLGTPkYO2SYDFE5tLPBE8yGK/F1N5phtY1HyQeX/v
BbIIVx3klzMBi8ZDTSn1nsjifsZtmSRhsGj/6n7gP2Fk8arkyLS4FFh8PLVD
ZK0JWbzfX9BAZfA3+LtsQOIcshiMt/nrzQEW3/33ZptIIYsv5FT8ymew+P1v
8cihdmTxKUxdayAJLBbCb8sGBSGLFgMlWowTWGxwmI/cUkQW5ae2zz5OA0v2
xOH8Z++RRZJQt5xDPVjyCEaf+hiGLE7RBoTv3AZLkSw11VkNZIFn3oh4UAeW
snIdk7x9yHx1T8SkSB9YqhaeK9WJRuY1ZhLHhNbAUk9H8KwtDpmf+fgrNF8C
LI0rn+t5f0Xmkqrna+5fB0uimfNcwjVkhnY93uipBEvrxs3KYmNkduTATNq5
T2C5j34/qPUHMp1z/u6kJgWWzt00458pyDT8Qho5ngyW3l+uv1KcQiaRnmPW
BaVgGeCGCyfdRsb/wgTZVWLBMnTiE9GVhow9VHkC3ArA8vqy1Ju7jH5Ip2du
5OM5sEw/2Kd1OAcZXSNP86mMgOXdyuRUiUxkOKK+Ydw5D5aP/TmOpychfMg2
SeK0A1i+n5pZS2L0s6dwzmMWk2A5sKvkxO5ApJfiez47QxksR0pOtu/wRbqB
x7cMrs6A5ZzHQHqMO9Jc1RkRdfkGmOBoM+7yPqSUK+h688gcYFLEsExzW6Tw
PGcku6wZMKVcwuYqHcm1rbM+/6wLmOGR0s4gSyRefe/3UV0VwBz60z3OaiJW
/OoUb1koYLe7Tt85ygai5rFHfhmkAXZfW4lNcgsk7Q/Tfvl/Aazk2levgVWQ
PTq49LKmALAX1vuND/4FxWclGZWfegH78tq8x/YLaEbFfPg3JAXYD4VlU64+
0Pa8/Oz+xARg0xFPc9s/MuZrNwXPA58A28RUzlLbABfoHdqydgCA9z9OtruD
gB/jmf+ZBQBC3KcIG/1g+Izf8x1TBoCYWZP34U9gFHpN27ZdDUAuK/SjxHsg
bGww9//sBVBqH2S/2AXGVdEbcvl5AGorBOP+DjBxL7Bcnl8GwB2avZfeAqaV
gya2PtcADGPtPi6+Zrz7SVKt7dIAJtWlHAcaweyXYO2gqxyAxc/tJs/qwTzQ
EoTVfwOQhN3PCLwE87XRrnrXYwA0SnOuXx1YhPRHFFR9ArAJkOt5XwMWs//C
vB3IAPs+DpkmPQPLNpUDtoQSAIc6dp7sE4DJvb8dnH0KwDlPZ7RIADB/gvOE
fB3A0TjH6spGwF6SS4q82ABOnItMaPRl8DS8r1PgDoC7Q+nRLlkAqfXpclte
AC+Lz/qDXQBGDVYT45wAZ5WZOH6FAex+TBIregvgz60+uKDFsPum80MPI77A
+f2PmYYAfNYbT7jsALg4GBa1MwHggt33SvkagLDGwkMSJgz5/PtGfTxARNEH
TZVxgCv446Ym9wGu3ljdMmDk4XLjD899zwDiLyj1AI1h5+jfm+PbAa4ftSvc
vQjgu2MmTdkYIJkafMmpgIGjhfhKOwfgltb9Pe77AfamGEux1QLcFuxUPM/C
KEx+wg+iSQA5q4vL4U8BFN15xS0CAHJHZTsSjwNwBNqU4fwACtqt793mBazD
qn6z0gug6Mn58w/qAYuYKc4SvQVQmnHHquIMYHp/icMxUwBPLrdKNjDueb+T
PY2fFaDy1N+Zjg6wDDYPEpBj5LPGVqK5PwQs+crUtzo3AJDkWe/ZfrDQTNLk
K1wFeM2SiW3Ggnm5js8+1+8ArRNNQlxGYK7+UkK81xegu0b4pVIamHELzKXF
Ms5Tzz3sJo4MpufFN10NBwH6Yk6ftJgDk54EzVxGHwPfDrziPmQPxhEG32tr
PgP8mT15OIEbDFN/flXuZMQ315+kl/4C8G9P7XK53Ayw1FDDlu8FBms3GwQv
MPKwmcRV+rIN9O1KWco4tYDIo1GxPhMN2iHvDxr9uwNEAf4v79cNQPOOv3VU
aRwQhVc4HnCOgnrN/Z5upm1AlG51tlUAUB48H/LztDAQtU8y3zmwDpJPFdiL
ohOBuPuOvUVdQMNSFe6RmAQFiPYDLK3OVYgtit3sw511IB4UqrJfXUI7SzSZ
G//zBOKRRImTZheR6KKGU8c9ASCeDRlLeHkZKa3GxrOdtQGif3WG0OEGpKon
ems0RxeIQXPWdzaYkPpxYwGViUYghp8uf2oRibTLHtG3H2oC4k3H4L76WKS/
JDW6qswLxLQ0TdejbchgLiVK3CsciJnd/01u7UD4ifELnecdgJhnRdrEGPN2
m0ij9ZEJID6IXIz99g4Ryt323yUoA7G4voj/Cg8yTgr+6nbQG4gVRjuV0E1k
avqvWPJVGhCr/RrKj39AZhxj8pkrYkCsK/M3ZhZAZh3Z6szajP1mpb5dxFvI
wjJygnJeBIitx+N7Rz4jiymKpsnFHUDsyDE/GimGLJPndAuyGfh7BfP8mrIQ
9tqWP5V7Hoj9e/avnRhCoGb7p/qRKBC/XOO4yiqFwGtnRYL9fiAOt9Ty5B9B
ULiXZC2nAMQfLN6Z5LsIhtmpVytLgDhhKSP//RsiConmex40AeL0xfePouUQ
kXwh7hjlPhBnq6IMlU4g4llh78Avr4C4OGtY/zofEVO/C9q/XQXiqtY4/eQY
Ilb2ZL0begLETc+sj+wqiPh+KJDKeMdJLAW2Lg88EPHXX/9zyoJA4vi29YNa
hIir2xu/VSsBiUuy4uyPCUTaJruk7V0FJN5DJ//FaCASr/a2R9d6gSSYKhqp
4o1IAloOr+N5gSTa9ZarpRSR+CTKZvQPAklqR+gt92lE4lwiWyb3A0mOpiu7
TQcR1+trrw35A0kpYqSo0BcRfwfKm/y6CyS1V2n6Vk8R8ZPkv+TeBSBprdBe
/JpDxNrnmjUxpUDC4VeocXhEvL1byLx3D5AMfR91qwUi4vmRYEuXW0AyKT3q
2FaNiNbh8dosdkCyGOcb9VxGRAndUfkDPkAiKTb7bDdG8GPjahdHFpBoxwIX
iy8iKF34wsV6E0g22Wrh1nUIzimWr8YeApLd5yHOiTUEWrdV28Y/A2m/wPWU
BHOEve1I570zCCSX+LkHbxuQZUpWIdvIEpCOhfm9F6tAFgtPVNxVeoDk5vt3
1b0AWezR+ZT7exhI3odm9rAkILPpzYqoUhsgXVL+/c/0ADLu831ouHIWSOHi
3gpxVsiY2UZ5TTUMSFHck7s/myKC0kRNaMoYkBLmx/P8ZZGhs/WniV0Mf1mN
P2yKJxEuKn4lkrUQSHerTgYsf0F6EdFn3yzyAel+0fd71G6ks8SXcUTNCkgl
N0bmRyqRRrPt0+VUAyDVHfl6RzwcKXA+6iAYegJpYKVvJl4IawqcKihu+QCk
/6YPifdxYAuzEvSY53VAGhn+TFFaAdYOIV42RVMgTbT2ZqKvIGgYo+Br/wVI
K7c+EP8Vg8KnJxdEjzYAaSPe3oeWA8pSz/efPCUDZObQ7vS0JFA9Fvve2ZAZ
yNvd3v3WCwDNz/QvS7u5gSyOe5vmaQn65md/+U9mAVla2bq+GgcGVsc6HAjn
gCwv1jbBpgR4O87qvuR6IKtttVrkbgcj20se9XseANn4XfPPvl4w3Tl9Ln5v
EpDNG8n8yox6P5OX15XYAWSobDI7XwtmHdK8eeGyQKZno5u8d8HibAKzjU85
kHffwOqOJIOlEW9YVQtD3z6yfuxRNFguRZMy70QC2fH0KxOr0wB6deW+Ff1A
Pvz0jbjaH4DEGprovWwgH1/pXNnhDzAmkzlifgbIp4i9/b+XgWj0MeIArQfI
p+O/1LwLBWJ0nRrH3b9APvNhLPMxMxDfveLKmx0Hsr/4VPDNGCDxv+aMx20B
Och1wdGfC0j2tcelLnsAOaR43Xg/45wmxDXcJggA+fIcm5ihMJAaZGlpwgz+
oky5/okwzvUf7+tc5seAHBsp2PePwbvYkWIepwwgX3sr+Xwgn8HLL4PVNRqQ
bwooZrxQA7LL2p5dgXuAnOaseSGnFMiBSUVLL4WBnHnf4NBlHJDjM8KPNQ8D
OWfSjHCsmvF9Z0EPvziQ8/TJokQzIOdORibTGHw9CLFZVkBALlCXPJX7BcjF
Tfv62CgMvZadrZ4MPOU7nKt/tAP5dsOtq+lNQK7YdyK91Q7IicKJa1OFQK7O
8goq+gjk4PYzHzgigFw36u+QcAjIx77uNZ9hA3KDRoiRN8Mu0XGmb/E6kJv9
I0VsXRnnBMudvdsN5Na6+CWdn0Caz3I6V8743smS/JnPC0iv/UsMT18B8nub
21WzM0C60VMvePADkHtT8m71BADp4NtD2GA0kPsHiwMr/wFJ5GSn067DQB7x
qjUMZgFibEtgYeRjIP+oaBR2igWicYXkG+4aIE+sti2acTPynRB8/hYj3rmE
/spNYQBt53dheWlAXvo4nPYtC7BbHPvn7xoDeU1iPKBRBizfzM5q/x0FCmvJ
P3y0Glhwh1yyEzsGlG3zTEKnysBcISncUvQSULjNti1YMeZ4Pc3AqDN4oAh1
iFbuMAcTgx3vo/KGgaL8m2Bwcw/gv+nePhgRCxQNA0zQrxcMaq0Vy1JXgKJz
iTa/3xH0r5u3iFi+AAqBy+GZyAnQU2K5lnykBSh0zSD9nCBQ0TZoBekFoHh5
V+GKcrB++jnnzZCfQDl7r81toK3hT3vToShza6D49wyl71hALL4m56Sdx4By
yZx59cwuJDjvdp65OxMoidx2zbhVpJSt+JDv0RBQboLropsKUjXpFDJUXgJK
WkCgato+pN4jsV8xjgSUnC/Z15ZKkM5cw6L5r0GglJWOH3jhhPCnRV1Dwhj6
T4fXYqaikWHm5oju62igVAvz1Eo/QUbNnsWv6YVAqQ8zlL7CiUw4/KSaa/WB
0vSUvucpHpnKeN2qazsElJYfLhGjx5GZbo7iq8hkoHTbRvyk1CAL83PNI+QK
oPRE3BILHEOWhJCiD+sFQOmrKrIp5EOYxo3zP/fwAGVYuuvxdg8El76dzrSY
AcrY3pER0xQE48Uh0ceKgDJ+dVHQux4R7edkH4cwA+XvH8kLXSKIJHj1fsHc
A6AsKugUb5EQ6Uz6l7E3/wFlxYH4Re8sIjU9C7TVzwfKRsJBHtcsRBZo/Ari
D4DKXO8JKS2IfKT4ZxHKBSr73CX/5jlEzj/QaEH9AtQdKkkFizKI/L2M67jk
Z6DyOOf1qdggiszdnnthF4AqkFS1/VAgohwQvff+RwpQRZrazOJyESWaw7/l
cT1QJZaGztR2Ikq5y4e7iplAldX4c2/yH6L0bG8roHsCVfEY80cpJUSZY53p
XssAqmqqMJutPaJyYWe7R5iBqtmqZnQ5FFFlnjGVjDoDVXfNzPNxEaJqOSzN
8SUAFa9rlzXci6h4ZfPIfjpQjd1c3wkwIaqR+KH+29+Bap4RsEXWQlR9PZ+p
HjxQoSMOF+CIqGqnLR+oDwOVspXt9iAKUcVe63Y1M/iwNii/9bkcUVnJ5Ich
TEC19Whs2zaIKL8mpafTGfj2ZveumnAgSks9S8KPNKAe7B7X8tJHlHtvemu4
YoDqzLp2NPsoopzfIfxCcxaoR415bnYmIAqkfdfmWQLqCR/5po1qROH0W+gU
zAeqey5+UWcUkd+W3/5yxA2oXr101eM8iBzrVC38tg6o5zhdnJJNEdkyql7O
DQH1gm/Eq/lkRMq5K/c+6DVQLx12vfmRkV/rvtkpS0eghtOJbk93I+JcYnku
HwWosXLM289xIKJR1fX9ywx717iGv9iOIfi4/8Wz9wDUpGX0WKsRwWn0gyf+
LFDTu68cmAxFmFh33colF6BmvTiu2u6ELHWLZNV4U4F6txBbLTJi9Ke//oSJ
aQH14eWt3FOzyMwqtISn3B+o1TqXf4+4I8K2C89fqzD4rZM4Wo8oyPDX6kf9
godAreewTL4nj/BN748n+zD8v/lvk3D4C9L3jLn1KL0bqJ+uh0X270Uay+ON
n9Z8gbowFSrebY441Q+9I23bAdR//S5T5eINqwPyHlJqDPzrr80aEpcaPlHf
xKyoxQGNLXvtlM1TYJn46Jf0RQ5oQrtCnrSogMy/D64tRjigiRGcox6wgYLq
reOdv8eAJqVo6hA1AkrdDmZano5AU1xdWSfmgIYA8+6LVxjjtkHJRatX/KCv
LjQ69CIdaIR0J4nsP2DgydfuunkBaGaRxtMhnYC//wENPNAGGtnpX6pxDBB2
nM1yqMsF2v7tF74+Wwez2yP7fBx+Ac1h8dDTlAHGfPfO4OCgDtCcRwjRftVg
8cqA+nAjHmgnapY1dP0Ae+P6SanHD2j+nkGBJT+BWK/ShPDuQAsq+rop7QAk
g/XyFSkWoIVMWMXceAOkgv7p01gl0KK8xDICCoB8QcYzb2MVaLElEbK/hBh1
ho7Ls3IF2rXJiSKnKKAYrAQ7dHgALc27rtbyBFAGo37/G+8DWmapIvHJR6Aq
qz8NujkJtJypa28ViUA9/dcwceE80PK0FvbdegLUosZ2AmUaaA/OHB7ilAPq
SMKphKbrQCsue+MWcpPBO6GC9Y8e0Mr+aP+e2mJM7LU7XAaZgFahkx5w7CzQ
3LeivjdnAa367Ob6h69Ai9mYO0WpAFrdY4+rFDug5RZNXU1g6NfPvN9Z/Qpo
z5a6SxT5gNasZ5yurgU09K35qBwDb6tvnkx2DkMeeWnksgG0jqfbC3m4GWuf
ywbfe4DWPeuve+US0Bq3381/NgK0Xtzg8zkGrkr81ZB1Rr76/clwypnh789Z
XXdBoH2peNTW95bBm6nnjvFHQBueF9prYwI0D+mDq9+XgfbDIHTgZREDz53p
wWMMXBPnf5zQFQOa4OvnBP8fQJuutJ3MiwXqcM721KVCoM0uVJ8XZNz7Qr0d
8l+uAm3JUGYtxh2oHklFa6kMf6uBsVH/PgFVvvXOgNh9oG1W/eX2pgDl09RJ
UvAIWLEsOab9VwmUaD4CZL8CK64L6g+aUoDcVXKDkpULVrzPU3QMWYDsbS8h
wscOVoLLq9WFfkBm2fdkbUEWrKSCO1oT7YEk+82YfnwUrORq8Xs2ERAfPsA6
9GLBSmklp9+PMSergV9tXwNYaYecmXDgAZAKP3wnPxOsLEP5uGQ7wSzrKNdB
6ziwIr0MTk0xB9MjNHevystgRVsfkWJ7BCZi1OuF4VZgtSesQmsiAYwuzOwI
NUoBq+PhB+ye0UFvnNBrY1UIVpGRmSm01yCY2mi9be93sIoJeffC/QdwXS+v
dX1fB1YJ51nGYjmwrY/W/pt/FsAqxe2MUSu9YfrjJZTPRgWr+xTikFUnkhRX
NDlBZOBrYv+tRO9B+ipaPa4cDHtvNuVsPReQQVSL31ufs2DVvnQwKF4I4f9j
F7mStxOsPvxsaGt3QIQI0WHm3wz8I61pZ6wHkXnMsdq2/H6w+tHQnn56DVk8
/5Uv558FVhPPNxsSpJDlaAQ10E0QrGaLTvO/PYrg5n/PS4Rygc4cb1FtM4pI
ufjNf5WGQGeP8P/mzYrI4taNb7TUgb79YhHnNSVEvv6Bm3PkDdD5vQScO9wR
xbPBejYfAV34hFXU71hE6ZoW265pCXRx59AyLkZ905PEuZCfAF3e5ufWrklE
/S6wbukuDnRlspSaDxei4cvk/Fq8gK5utndvohaiXRmPqPIdArq2QUxIqS2i
tT5J9F9bBDpO80V+51lkxTm7OTcyC3RDxb+dUzeQFSXrz/XEZ0A3kVJe4n6C
rEKyOuMNNoFuIeQiq/UBWZWMeuVb2gCdyH2TvnsOWX1y2yJP+AKdyvbG74wg
sloVVHcRWgU6fX016zoe0cXG5n9ImwN996Juc9lBRMd1D4h0lALdfvrk1Lsg
RKd0vNENqgX6gR9ZwtMZiL73o9jfiH1Ad/yvG9tZgxjyUe2VcKAf/szmqT2A
6E6T7+hu/wH9eJdJsu0qoh9YtpIWsgP6yZazdWclEd2G5cgVQWGge9bnf08y
R3QT7veadbZA96ke4C4/gugKYoMZnweB7vuYx7DrMqKzaxj88poBekAh+eif
e8hqlMYTHB4F9OB7wXE8CFnVnhcVYTkI9NCMsqc6w8gqofZ8x5sDQL9yY3Rw
DzOyclBoOtxxEujRAYoH69uQldT0up3nT6DHObp90LmJaF+1lmpju4CeaF6w
+64jot2eev9rrQjoN+XG2njkEM3ebN2KZwPoaezK5LBxRGPWMHFb3wJ6xsSp
+ukniFralpbRmQX0e09/Vr0DRFk4bnYpRQPo+emqOAtORLkZ8S9uXQ/ohSEe
paXvEUW1oCyjksHHY9J4fuJxRLba5XI2uQ/o9T2TybuuIKLd/Jemi4z8N9Vo
cr+gI3gz2fR15zjQW3K84zT5EBi/El2x2Qn0rpNT4TtykaXS7zjcgT1A/2/x
j087QiYGcywBTox8b4jO0elMSMsz/35Z1y+wZlrXb37ehtTDQ9jSnBTBmm34
PKZ6E6ncOHJ3Pl0KrLmLFoy2ySG5OzyLNKl5sJYyWVJsAcTCy46+Ud3B2sxl
ZYtyBRRHRMw5j/aDNQamIZV0UBnbzXMe6wNrslLIkhIfqH9nxZfULoO1zdTa
NGsu6L4Xr2ERtQdr57CNwSYEhiWpPZPZu8D66AlLB/04IPDtfdppeQGsT9Au
f7hvD8Z+HO4vimbB2otnqy1iGMwUmNqr9YPB+mIuczWRifG+ZTvEVI2AdVj/
218UZ4DmOj/Ho5/BOpI/TcyqEojuJ2Urv3uCdUKUSoidJ5Du5CxFPJED66QX
M4/2MuZI3EeF7mtcYJ2yUPPloBSQ0Ve2o8P/q7i647F8v7CGoigRvpWVJCTZ
IePY3r0HoZKZyCYjoiJUioiySiWjJISiO0nRklUh2SQzlO33/P56Pud93ue+
zznXdc65jj7gbjkTDI98AbNPLa0dXvcAl5m5/fRRTCeRvLp2qhwE3N2vP7Ic
MJ1YZ94Hah6AyxW6/8WpGyx0Vc3jOGzAFeC81rrpgcX9LTwX78wCrihSV+NU
ElgKVJeKCGUCruT5WsfT42Dpsad4+Wst4KqUk+oC7oDVzpvugtFnAffKye7f
mSWwcvEN1y6SB9ybjH0KYWywKkzNuldFBlx926R1BNZXRmf5lcQuAu7T1orY
85sAt9f7C/+ZO4Brsop8Hu0IOPbyrDJkAa7tHGE0thpw5y7Z1komAK69UlTy
yn+Au8fb5R6PA1zXny7yNV/sXhezF0fVAde3/0F40ifsu7v0I1M/ADfk6FV0
UwFw/U/ehDwVBdzvdN2eW5HYM97mQxcP4Cba1glndGK2yufB4ycBN7Plg+kd
beyc5AGJXZ8BN2d5w+8edm9LrX1d5TbALUXY38sdAVx1Be/iYx7A81Tsaysw
A1x2UG5Jz2fAr5+a2vg4A8OVf4fL9xnA8ytV6hTPAY7moyLAsQK84IkotzI6
4KSqqq97lAF+221iWgXWp/r/3XnneAzwoq2i76s2gFXOgcdFyAXwOwW7ltAx
rC+dLsEJ7AW8lEXugdeVYCX42b9G5D3gZcO97d+KgmX5sXyloLOAly/Xu9rg
BZa2OnPxdwMArzS1Dn3E9MT86V/ncKaA13BIlm05CxYyx83/Qj7gD906yvj6
DczzmGLbJqYBf7hF4XyHOpiriJmd8MP8NzOvHOzB9uI9l5VfGEYD3ursefEB
ANMbMe5/N0sCnviMZDWcBqZrutcctMP8YSn8zJsgg3GDKfPmvk2AdxZY77n0
DAwNRBNzhFMBf9LsYxaPMOg37rTO0NYAvGdY8pd1p+CwTfbN7+JNgA+YUNTY
JAM6nM/DYoZHAR/dRPonHgNqK6wpn3MPAR9X0/fuXRKo+rNsZh84Af7q0zNp
ZzLhwOdXg3xXCwCfknTPoKMM9kVq3T2qh533gL10PnMARA+LXF7SAMDXdeQL
K5ggaXMH/K27yoBv+AB938lIdtDW3zaNH/CfXrSVxlojeXnntvVpWPxtGWu5
o15I+eap3KrKj4AfPGadWZSJNFNkWhONa4DAO8B3QGcJgeSD35mZrUDgb01f
GeFDUL/Jq/diCRAE6zQab4kgY6+4+I5ra4Ag+uCo77ISMnlquveX5kEg7EiZ
NX+kjUzJCk3XhruAIBkTJ37UBJn2x12iXokGwl63sspX1tg+qPZ6NiAICIo2
xHgfR2Qep9yrFLQVCAfwvfZ7vJDFlu005mldIGgpb1lzIQZZrpczCjD2AoKu
xN1m7SRkGSg4pPHPBggGgro5Q9j86Xc29rPWBoLZuJMVrgxZFU4/DsJ9AYJV
1+KOhRqE458JtoyWBwLxc8Lv/I8Id3TRV91iExCoSL7K9hvCPZ6avxXlBgRm
0Yurgv0IN1/zs+V7IBC42fRj1ZMIb2DjVaSXAgTba8Pqp5cQPvi+37Pb2HnH
Is+u382H8E+SD/GrxQPB0VektUkE4Xt3XmobjwWC64mHD6KkEEFgb0OMlDgQ
TjGNzmgqIcLB/IGQya9A8DJrxQ9oIwLxjrX78igQ/LTcJZJNEOEEj57H2w4g
BMnzjFuSEcGnWvO6pxAQQsWSX85ZI0JI25U974uBELFR+dpDR0Q4a6541tYQ
CFH/ak7YeCFC8MaL0eyNQIjR7x7J3IIIHv3D2s/zgRB/btW7rwARrH8/e7zh
HhAS3krOK+ARwVBaT1IM8+eGgH7EqSFE2Hl+qvnlHyCk0o5sfHIe4Sfk0t1q
vwMhPfnMlb+yCP+CT1tj6BkQsjtuiukhhD93eHwXYRYI92XK0sPtEd7wk3Lj
jQUg5Dm1yr1eQriZz/G2jhiej/KmC/jSEO4uvVXwtywQiieFNUg6CIc/Nfeu
IAIIz7RUK6+1IqsRLcFi7x1AeB5MMW7zQVaRtVYm3zG8Xr70qN8lhKy2a82U
bcDOe4fL+5pDRJayOtLhMk+A8OFKvf3wCLLI5Her1IsEQmPz0OCBGGQhalhg
My4ChO/2cjNlr5HZ+CkVxfLfQBjxydxWr4dMuLaKn/xeAGH8WVWq4DdknPPO
zuO/YSD8WeqUoQcg+D17zDRMEwiL0TtUOp4gw7aXjTnRlkAUuJVIGFdAOq4t
46SjXUAU6n7SrF6HtCtiQ3CLCIiiexttAh2R1jrjkGWxbCBKFgm68WQitajs
gqGBcCCq1EZfFBFDcvEKJ7vePwYidSwE6awH4V+mGw/u+gFElnqaZegd2Om9
2uWgPg9E68DyT68AZBae12WzXwPRYc3sD3wIKHivenge0geir9jpBds/oBEz
Fjhy6AsQA49cOZedAFq0HPE1EWJADMkq5BtUgUPbP5vUkhhAPK80In76JOjF
hCgYPDAB4g0jR81zPQBxud6so3eBmOp1ZYuYPBhTiG+ViohATM9+NpR3Eky2
uLqhv++BeH/95rSmGTA9e9CY2hcLxDwtLT8XXTBT8QkMkT4OxEfOR0mLZ8Hs
u91ORa0CIJa9e7pGjg8spFy+1HL/ALFyvrO9nAQW5fu1+dP+AfHl/g0lRGzP
IXS+HKZi+Xx72cbFfxemWx1sq+5oAvF99Xljfmx+dA8WT86GAPHzxKOd6TmY
jqn4sK9bFYjf6Gs+1qkAXhcRbxufA2Jn1P4HNr6Azyi2joz3BGJ3CStivBzw
S17RX0QXgNg/EG4TuQQEete/eJdlIP4Se6gpbozxuu/1K3wtEMcsmwXzLwLh
l8smnf5QIE4FLQ0ZNQBRkf4n2+goEGfz5FHLViAeTyxV2E4F4nwHNc2VCcTr
4lkXusqBuCIQ7LuUisX5WTrQuRdIaw1ySAlYXB0FVTmi9UDa4Plp315ZIM7c
2z9x5TaQNmXO8VS4AIn3sZmWejqQtnzZ3U4qwJ61AqdsLwJJZC3hac8kkLZ2
VWjih4AkruF/OUALSHxLj+u+1wJpl2Omy6ZgIC5IRtPYekCSvlEPGS+B2GfK
X9wjD6Q9ddM7NdYDsdZbI4tnO5D2zUlMv7XCcH2kuV8+EEjKihYfj1wG4um1
7sX77wBJ1cbr/kQTEHWCTqp+PAMkzbi0iPNiQFiQGJ27xAaSzotam/+OAOHp
SscnIAJJf2xcoyALCM4HzT0tNwHJWPo/QRgAgtCrI4F5XCCZU40HW5UA/7TB
42U6Fh/unDtyOw14yvGBLWoPgUQqvpG6XILplWwD89s+QKL1vfS9Ng84r7sr
s1FtQGJv/0WSx/a6v9HlRwZfAsk+0ICH/BYsx3x0q8ew8xxynb/3CYClfdV0
Q7IUkJy/JzwNpIJFvV9gw9F5IJ0+3O+c2Q7mccg5pXcYSBE8cR8mx8HkXfzz
L8LKQDqvVnr/ggaY8LcT/Z/nAinG4WfEjiAwNl+yv1WzAUgJbzQ0TNaA0VHZ
XYktmkDKvtSemrgddG5L5BdXcoB0z+eLSOsm0P77+Hw0bz+QHh55e0WcB7QI
LG+X0xJAenKgJDJtDNT6PYsom7YCCX254n6nDvbW2G0/thoLpO4dJgbFQUhg
WLKx0voNkPrX6jyb8USi1WdSN1RcAdLQ74Pq2o5Ikjf1Y+S/XUCaqJKQr6Sh
va8iYkydR4C0euzv1holpL42QOZZfxqQpXIf9nz5gYx8vgTX3+0Gsuy1LFuR
FgSRMS9PGH8HsnxwchurARlbjhxp7ToDZBViVMP3MmRSVxx5I+EvkNW1gs13
FSDT8OcO7aPYedpSXi/t7iIzTXzWqfFJIBtM2j3tSUDmVwnfSAI9QDb+zlTZ
cxFZaLkekb61HsjmNfhcp1Bk0XbsOKVAGMikpEO3f7khKz6zr4LMk0CmhamI
7z+GrG4O0F5nFQKZ5Sx3zYONcHvqg1Z0KEC209l2YcoE4fc1c/K+rAD5+G4+
Hg0dhM96Vt8bLAtkJ/6VYH8VRBCx8zw3bw5k1z8zM8/kECH8gf4VtVNAPtXx
23N+FyIMnHmorxwPZK/anl+HhRHRrPLR7zc3gOxX+O1EGB8iptOa69pjgRyU
/OlH9QoiTiiorrNmAjk0/A2XZwaR9BR8665g+Yhwfd5kMoJIZw1Hc3WygHye
Vkw8341Iz61jm3+rAjlGL7eurg2RplwG3obFATl+T6Yx30dEljkChbrngZwg
cOM5vhaRreSvUB+5AzlxNl4rvhKRXav9CnccAHJKV+TjT0WIHLmDut3DGci3
3p5RErqPyEkHtcb3RAA5a/2c9aAKImdezq4Zwd7nmAReev4Mke/QC30E7gM5
N/xvxTVA5NshqlvHc4FcUOX/y/kdIl/ZcMp53h/IRQuzO/SpiBzwd9vXYRcg
l+r44bZ9R2QOWT/OFwfkCv/poCEHRD4o6jcrNgvkqqc+uS+weFeYj+5PYPi8
mpz6dt0Hkd6IWwTUIyDXqXjzuSwiUtTJ1ZnqGiA3uE/qGJxHJN1jazUGM4D8
6eFpVxEBRBziax5owfxpGhxPGU5CxPhgdn2DA5C/ynm8rZZARMX3NV6V34D8
M/PUPrcDmB4KeM6V2Avkvs7fHMMyhG/apOyfQgPy8M6T0dsNEZ4yZbRmvyOQ
J2+4Dr4kI5yWhcddm2wgzzQNiyW1Iavbq3PH004AeV7IxeLkUWS5fHesAU8G
ypo4p/uimL7M4+bTcMJA4X3X3zoyh8z/vlGW1FQCyqYNjrzoHDLXb/ZSnnkB
FOFzDk7u15FpWTY3ykkCKHsCj8q9KkHgPOfoePEXUPaVdDFT9JGRQFnpDKQD
Zf8fu/On3iADE8vdsZX3gaLpcaRfvA3pJr4eHX9jBBTzE9y7Hv+QWld6rvGH
TUBxodBld+q9nPux31fgHB9Q3OO/0CZqjLrbG6Oih1hAOd1APfeGAOt/klx+
yqwDSpA5ucfLFnaJfOsfNGsHyqXDhKy6s6CyPn6g4sYWoOTvM5f2eQWGuenZ
ReJ+QHkskTAxuwBwsOG8788ooDzd1onOaILxxgs1w0czgFK55Hc8PBdM8vrP
+YzFA6V6CusdvWAaIL0/x+s7UGqGBNZelAAz/befxR9idsOXu3fjE8D8+e03
stRnQPlUN+G3FdvHfF2bUgr/AqXpxWGzxPVgubfX5XDpVaC0328aSA0Cq+D9
8viYCaB03ZYqkygG3K4cqbEHo0DpvXbyYuYo4J5JUVe3fgbKSOjaffexvbHj
jFfylTVAGfcmzSmmYbp6623VvASg/HFOfVfQAoTBbQn+PSeB8vfIQKrqFmz+
2n3UW98ClAWamttTbJ61tpwmj2L5WLEI09OOBJIpR6cq0QeoayT7L9h2YX25
/mZqxy2g8oqosrr/w/qKiJPJphtA3SjYZri7FMhPKulKnbZA5ecLlT9BB/LC
RO/ZTUtA3bxOdksOFod+FunSYgtQBZbf/h3E8hZQkd5HVgbqljmPnwqKQHm4
v8xofgWoQtMib93qgNI8zPqJ6U2q8FjF43wHzO8+iYjoIaBuHz6aMrr6/3vq
JsTCgCrWxxuhchv7X2msXd8HoP73I9/VSwd7+kU+twoA6s5vNOqTVuxpShW6
aARUiaZ/OtNYXP/JXBJZ9xKoUh/Td2ttxb7f/LzCG/u/zDtT/oACoPLxeiQd
qwWqbM3wVDkOKDNSh1qoIUCVq7ryfX4QKI3swP2rcUCVL9esOYzxJKfSm3nL
FKgKxe15YTJA8ab/LrC+CFSlwojr1VVA0VZKkbiYB1TlXPkQHhsgT5MF/0iH
AlXlzocTxv+wPvT+i8Gr70BVTfchRCUBmV1i/jwEi0f95n8ab9SAtLyjyFTq
JFA1r1dLbPgEpNtCaq++koGqfdlxvZU7kDQKa6om/wBVJ4Z/NJYP0yubVJye
4YGqH8aqEjQBwmeX6l/1WB4MAxfvkX8CAZ/tePeaB1DBJ/tyQijgX276XjMv
BFQzlzF7kTLAJU79l7V5DqgWDokWLAZYzTxdaEzG8mJlp6uSPAlWFPUPQ4Hv
gEqkn1/dqQQWf9bMX/BVByrTQCJLJgNMp2Odv3li97EPvFOL3QKmSu28lUIY
P7hSvjXT4WBiF3A7VHECqEdWGwbqjgGUMn8s2r0C6omaM/tPyYLeSYU/nzfX
A9XXsrXs2X2Qjz8m/cId44+/zjmr3WIgm94dMsErBtRAReXvsdEgyZS9adfo
DtSQTVFLdq6w6dvQza/FJUCN/Khusk4JCSdQXiXjDIF6nX7lI/kR0nS+slkx
EuNJkqmefbkU0qbKNmkNY3xM1hiY3H0V6Wj+oqRU5wA1TdRAeMYLHR43Iugt
Yfdlf/3NTVNHxpd+/iDkU4B6913yyLo7yMTJQlwjFsPzXoVJiIcIMtWPLaXq
6AH1YVpqhtEMMvvR49oqPg3UJ3aWfQNlyHLQbjhZbSNQn5Km/SnyyOoWntax
fBCopYaZG8pTsP3uRnbfwUmgVkj/VYwLQviUzP7emwZAfS6UXTkzjAhagnnZ
BUVArVpDItpj++0HHSHfjRVARb05p9X0sPlxcF7ffxyoNc1UnrQ8RDr5rMUx
pxmota8Xr6/fhUhD3tsk9mH8qCt5sMcjHpHt9J+Lju4G6rt79JK2JUR+vxzU
6D8L1IYbKxZwClE0Uq53bxkD6oeLD78+7ESUxMmFb4KyQP0UyHITISLK6BTt
i/cAUBtdeRZCqxBVGv5ZZGH13BQ5Ofj4L6JawtuWM9JAbUnvbupTRdSTb+ka
EyNAbStvfCl2ElEv1ae7vMDq+lszysflIGqOwXhMzg+gto8XpYR2IWrlrvfv
aE+A+oM/K6pIHFHfH1nd9bIMqD/lEk73URH169zNeLdCoPYYRdiKxSLqz9HJ
g8EiQO2z8bLC1SJqn9aDmqM2QB3wP6YZuoyoPY35o7pdQB1KoMoUaSNqR5XW
nqeZQP2VDwJ9XojauPhO5zfGl991B+fF8hD11RXtKK1DQB3rkR7A9SFqYWB6
8VWsf0wsbf0SJoGoSS9czF5qAPWP2GpVERtRAx0sM/ZgeM6oTTzsS0BUlpd+
nUcCUP8SfyaL1SOqynh8/VkzoM65fI7Er0XUdYOvX6BwoC5EvvQM00eU3LcO
zTy8QF1Kf2xTFIAo0PtRNy4GqCvlmRZ9jxG5Uc9R710/0NaOh0vjZRGpdXvj
E+thoPHyn94cZotI+O8C6YVvgbZRzv5f0Q1ELLdVk4jwAtpmG8NGcT5ECDnc
KpMdCzRBf5UXeEwvNo7SjqTUAW1rglRuWCjCS69LddhVDDSRNysRfRPI6p78
+QShH0AT7R73EFdAlj9SOEsNMUATX+yyxjsgy626+o/ajYAmoVatVtSGzO0n
2eZ2Z4Emlx7WG/YCGZcVRzsYeANNy2/ZTDwGaazdXJGz4Ak0zp6ljYTdoDpm
b1Xlvgo0651Npq2aoL7cs7dzUwfQjmzLjThqAVqbLIK1A7YBzX6VOe97EnS3
P3eTH20DmnN74e9bJQDe1NzN5fuA5vrlvMLeOjB2MKneenoJaCff2Tg+/gYm
FF38OVFhoHmWbfjxehnMJIi0F2+1gBZw7ejnUQuwDJ1Yx5ytAFpQjLZAABes
LPueNF4vB1pwuACO5yTgBJU2RgXsBdrZU+U1268C/sKvUxcNo4AWceLKSsYd
IOiu//7+lBDQIm2cDiuUAGGg7JWPy26gXbTaVqL/DUj7NTa+88TijTEcmqzD
9o7X+a0N8zSgxWpVH6AuYTr+v21GJ18CLV45ya1jC6brGJt8aZlAu7Ln5H2n
3UBx0K078IcAtISd0DuhCZQf+RsunMHwvL5NXPqMBTZ3Xj+8Z4oH2o2V1zcv
Y3Pi2gapBtJ7oKXMpraKY33ppdHFtN9uQEsd9dqWfQXjeVDhg0FtoN3qsyDv
z8Jwvx/2JVAXaOntErGlT4GmVv0tVu0f0DIb/7w1wnhBKU+N2IThk/22fl39
N6C5xaXyB88A7W51JjBGgBau+oiNzQHavVL/0B9Y3hOynzhIPwbagwJChesW
7NzvoQUGf4H28O7u2T9YXu43jxc6WQAtP3VOPVQTe17+LbyOAbTChE+nN2C/
F/AeKXEuANrj6Jz8BC7QcnXVOIuHgPbkbDAmaYGWpei4Vw7j51N/mlxOKNAS
26YH4vSAVnpq33GVq0CLMh3mqVIE2jOH5fTyOxjuvhTdHVZAq7BubjcpARrL
zUhxnRTQnlPzxD5g8ekoNUf4YvhVWUYw2Fh8YtUH1q1LA9pLQ/bVbqxPTSl5
WeRfAtorLeUPJ5eB+jawVsNJAWivldfxzWJzM/Ux1Wwb5u8b2e/m4VhfdOnQ
i/l7BWhvdzyO5NfE5viGe6dMwoFWL3ShOtECKJMhNj4qhkD7sKJ+6AG21/zZ
mG/8Sg5on2b5/NTOAtnl6BjO/T7QGn93FT1PAFKrqV3aTmmgtXyPU/xcAsRb
mv+pN2H5alu492pPAsa33QfHk74C7fsuxA10B4L8/N3GiVag/bCbjZaWxea5
4WL+mnygDfQe7fe8ChbbuVHjH7D6HF4XHFJzEsz3fCgd9PQB2ojcDRExCzA7
wDfleQKLf9y5wbhqCUwOjDm89rwLtL+/NTMFT8Lh3oxdyXlYXucFKNrHLUC3
sFrIwAfDffGA28fS3XDIe2v3h4+PgLZ6OmPJ9huo936sLpbvAfrGGX7rAnPY
w3+xZi7WHej/LXVtJ8igPdTAUclCFaDvkpzLz1hCCmK+xQvXvYEuaSRi8ucr
Um6rpBR/Kgf67nNW3mlXkIbMse0tyzZAV+It/vRrEenj711aY2IEdGX5j84G
bcjw/I4uxWQnoKtYDi1fK0ZgU6bodUgR6Oqxksq6rsjkbFLhicRMoB/eEn0p
pg1ZxPBcMEs4BnSDg3dkOouRZUhe3QP3HUA3or4oV72MrFwH9nKVgoBuen1q
8JsZwqvMdX7qnga6eYnAWWVpRNhI1piZ/gh0y9Z9ouELiPBt//uoHeuAThS3
Ndv3BJEcLvd/WP8E6GSdgI4QbN7uyuhm97oBnWp9zeezKyJ/oKk9q9QCOj24
YNMeU0Tx86rb+/wH0Jm36rIDpRCVf+Dv+69CQGe/6NFpWMDmyY6SMvcioHN/
LDZKtSLqrSoDja/iQLeTUV2pi0e0XTw3jq8aAP2opNqgNyAapXe6SEME6Md3
qn/aNYNoETHTJ2QngH5CXKO0LhfRCgayyXkvge60XTPd2xbRWsbEVp0IQHfZ
pnVBQgjR5pLCBhv2A91ti/apulpEF28SNnuA2e6bDzG9gxBdPX3vRxXsfA8+
HX2JA4huNS67qdsR6Kd5dffU9SK6TXVsyNN9QPdeq7fZOxnRXflWXNusge6z
qjctgUd0r3q9oFt9QPdbOtxet4Kw546FzVFAD5jXr/EuxuzMlF81+UAP+muQ
J+GM6KeLPz9u9AR68LThtbc7Ed1ZazmZog700EmjM96fEJ2rdHbu6jWgnx2D
4xKRiG5+vUmpwhboESPGVm+1EV3FJ3nH91igRw6ZqHqPILrwp0s5Tth55/tN
/5PIQLQ/BbH5pHNAv9hjuvqWjmifRJI63l8EekyX2ZDPBkS7txmpKz4HemyH
+WeJSkQLzDDSarICevw3i7K3pxHNvNV2YmMZ0K+0Wmb4yCHa1hfByRW6QE9o
sroo8Q1RW48J8szWAT3pA57lA4jKFCkRfkICenI9wUBiBlEFjeddP8gA/WYd
Ue5tLqKcb9pVxKYC/TYizUgKIbJxU4gLlQH0jCpyx9taREr6cnj4Fw7oWZWU
1z5BiNhtc6sVvwL0nBLa9bfdiHD8uUGdOcavglyWms8TZCXcXpfzE6uHR/fY
OySdkeVBy+fP9W4BvegOh+fdTmRh/q6001kD6CW3uY2Skcjs+Mg+NvUN0F8k
2Hq+oyOwU7tg/zsR6NWX7di+G5Bhth/pngUX6CjW3lCyEulHRNQfifsF9Nrz
xwR9ZZGOQvaLXU83AP1D0IkCyT9I5Zjgnv6fUkDvPHbyl28ibDZy7FPZKAD0
LoZ3sMVOEPv02FQhzh7o3RZBm/+7A9IL8kGzhVi8/coXlKuKQVGqv/eq9mmg
/57L9NrYCFpX6gZkG7D7xn7f52nnwqFaHJ8mXRboE10F1wq6QXcm9RUvyQvo
07UVT2kTYGh6defEHwzPxYTmv7ex/cTiUN0ZhWygL0e1R3smg5n52rKn+m1A
Xw3o+c9YEsyNVBurbO4CY53tuO6gMljKvRm1H98DDF7KTEN5CVhtfeZnbdUA
jI0mi0fi9MFqdjeFnuIFjM2KfGGqBMA/isjKufwEGIISW7esbQJC5KbX91x5
gLF1q2hGqw0QKdqFm6b+AEN4VhYFn8T6fSEfX5g+MLYPK9KIf4B8JWXMsXgD
MMQ6DvZKnwEKON3cZDkKjJ2vDNbVYrrQYoV31ZMfGBIlpkkp2DxKqjBBbGw0
Sz3A73VLAWpX4u3QegQMmTRqmT429+SCKyXSvwJD9jLHcgs2Z5ztDprXWQND
LsLua48K0HKUIp7ceAcMeV9H16dl2BxpVsBFOQJDwfnk/EVDoItYpW7yUACG
krV3LBfjhVmYSaG9GjCUiUG79hOxOne8sX18ARgqRmfzl1uAnjq97uzxh8BQ
Vb+g34jVYbXURv8CIjDU98Z9vNMP9B+de+KeCAJD87/r9v6ngD4vN/Bx6g0w
tDffnLCcxvI0+WtV4jgwDq1kRuwMxvzW7bjauQ0YulP3hcbWAuPgQiDH7TUw
DvcXZL+MxX5XubzZORIYBl+fql/H/mfQzBOQKgQMo4aK1443MXugwfPQeWAY
VyHmIRns/07zF/wZwDAtqhvgz8X8ZBSHSw4Bw/zuR/9OVey+ItUwERowLJNb
NjwqB4ZQWO3YzUBg4C61p5zD5s78y6/adpPAIIT2KDCwuu4K7pfkagKDdHqo
Qp6MxVsSOhGwAxgUh3HcHMarNF8LJ3sMfxprpv09xnPv6n8WLh7AYFgtuqcP
YvnMYjeIuwKDpb9mycsDy/duvXK/ZWBYy26VEsX0zl0V2dp57P0RIxv+Jx+B
dtQ68VpoCTDsbHNmyRi+YmkPj2zG+Hc8Re/DRWxPCSjQG3HA+Hui5EL5Howf
0g+s/45YAMPpS+Pdl8eAErOz2IOL4XdSwDl4bi2QVhYD2x7IAeOU4hPnJDqQ
DgSz5uWxPHpaLNFV7wKRcXfDEeM4YPicu67oZgb46O570wf3AyP4b9XX9miw
SBH2vq9mDoyw7XyvA76B+aUWg4CXGN/C1RiPRRTALIDVldGK4R3l/usioQFM
DOoV3I9IACOuR1SzSgAOSxkFnzmuC4zb709dy7wOEsraJ/TTDwAjY/hZ2OE+
2Pb1mIjstxhgZG9Y6/pN02h5DHdXTTEZGPfgJgi1ok2Xy2P/Je4ERmHp6/HI
/9B+2l73QZXfwHjcvKVdyg2pHhpb6eu8Cownk9ZvKiuR+muSFjXjHDDKlCZu
Tx9Bh97ru9bl/ANGddYugmMGgjqxaOIJrH5RlfMhnglkPD1Xu0lOFBg17U9k
0wGZSoqlDqlivHwrajHf2oPMj5aO35nvA8bnWJ9cSzmES8/DpfoUAOPLg6rE
Pj+Evx0j0ZeK5a/5DV94+BtESNoffWJvLTC+rmawy50R6dTDGYMwA2C0S/wy
YT5DZOLyZf8N2HmdepoHpvgQZS+f8Im3WP/p9mvgVXyIqHb3Kmip48Do9Vg0
lmhC1DLO4HACxpd+F+WwrUuItpm/NH1GHBiDx+wq1u1FtCP3no1cjQDGsPWV
mb9kRMsVD+435mJSno5UfwUh2iQhzr32EzBGCVOnOrMRXfNgiOSeM8CYNGT0
18wg+qManzUnUoHx59AFmTIpRB+g/RBldgBjRrXM9qElYojT/mmdqQHGX8Wh
m7e9EMOsNJ/XA+P33J7/Wq6mIYaHN4/+6QfAWJDAC0XWIsa1M1LvHvMCY0k0
hOg/hhhFtbSCX6XAWNlSEOMmhhjv8fwpd1uBybPxR60tIEbP2p8appnAXLtm
Kw/lJGJMDd9Q8bcA5roF0DdJRIzlvzuWcA+AyTvtHaT1AjF5910iJI4Cc+Po
nRKFQcTcGHxAS4IETP6B5klM3zDXj4bLUHcBc/NPXuWtutj3ZxXsFSqAKfhN
23WtA3a+6tpg0QPA3PrF5e5sPGJ0rxeH2n3A3NZw8+dwGWLUL2eFVrOAKfK6
YVfHT8R4vHuja1MDMEVfLHI+8yHGVd++b27HgSleppxYo44YJ5cWRXtigLnj
sd3nUlvEMK41DNS6AcxduVc3515ADJGm+ofKrsCUzEaWtx4heo969xP/UmBK
p01FXfmG6A8nxnKlY4G5O0n2ZeRaRPcUO6vQj+Vjz2XGov9+RD9QAqH9GcDc
F17me+QsomVey1H1ZgJTMWjoMRnTe7Q/CtLP44C53+e/38ZfEI1n8y13vUZg
HnQMOaEgh6iUssZdktuBqWZXkLmLjCi9fe+Jwq+BqcH+0bElEFGkvIVttbD4
DmGaY6YBkc7GS9cmXgSmkQqvyavTCDdMoIYFdADTeJ/22ZKbyGpq2jr6jycw
TWVcKh/UIMtZ7i6LdhwwLYUb1K9sR+Yj+ERPNRlgkv9dlbWpRMaJ7055bf8H
TPtXO9bMbECqxgMVtMt5wDzWf+Vm0Rzar0w2MhwBYJ7gW3/Q4zfa+370RKnP
NDBdyBO2Q41IdEw3VFsYy+/pzjfPOtJAtPThCaEazN+IOR+P1yqg17WLfk5S
CJhRu4bXR8iAgZ8QuVzkNjAvGNndMhABWLPN14rtBcxLF63elc2Byblv21sV
6oF5fbv0nrwasDRTi9ojzgBm0qGkShds/jul1C8m2QAz+cgmmtwDwEUYLcd3
tAAzLXv2bEY8ELK2br0/hcV79+D779fZQDmncN80ZQ6Y9xjGXhQrbD/kp34b
DwLmg4BnGwUOAzVjRjAG2xeY+VV3NC/KAO1kfkH5AIZfYY/4e1NhbI/Up2dt
XABm0frLDjy8QJdtoG53ogCzhBB09cwI0Ov8Zd8/x/hZ5jkur92Jzavj67b/
xfwrv37ixfRnYDCHj97weAHMytLvjCKsThP/RrgZTALzxXfyiAc2Rz4G6TkY
awCzeqn2nNJ9YK45MtMW5gzMVzJ64kOpGE+uPVqKxOrptenjRznxwORuXt8i
4QPMNy57zY+fBWbwc43URilgvo1N65TC8piSIvm6mQDM+kdCPh0ngPnoBjla
YwCY779c5L/JBubLwqV+SQlgfpxZzGJZAbOhY4uOER6Yjf95HxLW+//zP/YF
MWA2HR78+Bmrw88OJ/ac4ACz5aitYzzGm3flv0o1Mb/aIr8s4oSxOCRs5jSl
gfntvuX1DeuB+fDqjtbPfcBsr69SqMF4dU1U/6cyxpfOMfWX4SPA9Cm5HPzD
FJg/hXLZ+p0YD/0u3viF1XOPpuTo/GdgytnTv/ntBGYfJzGqDMvXTGiDvaMc
MAdC+Hf6Yvmq7jw9k4H1m6GMs09Usb4WFefRcaEHmL+ezU+JemK6ovW4bxQ/
MH9/8Vdd0AT6Ss1qjNNjYI6NTHp1LWA62xkcObrAnFzvXvQaAd2x6UboFxNg
/pEcnMzFdKqQRP+xEQzvmUMOqpeJQCs7cs5o6jsw505yi9jfgDojuqik/wuY
C1HNk4czgBr3xqeX3xyYS+kUVRlHoEo1HjOIdAMWT6P541+TQPbsfHTmdSWw
+LXVH4fxAf5Uwtl/nBvA2kwpnDj+CXDcq6K+gWxgCbopHrRIAisD65GTaZeA
te229GMhGTD/EzPAyZkH1s61Ao/u6oDx9r1+j079BJbSx8HCeldQWhP549K/
amApDx0fe6QCcpF/z9MLsfMO8vw4cH0GJBc5xFbz88DS0GgutI0wWt13ymPK
zA9Yh1NRwcRNJGtztEjtpD+wDJ4eHm2xR/v6d/cG7Z0FltGHZ8oVcuiAq3Nw
y5wtsExXCwsii5DmgYNGd/dvAxbRKa1A9B0y7PwleXlPC7DI4aK/F64geG6T
aqhUDyzqzWv7fzKRybqBC3yuTcBivo/Oz+1GZhfDTq/f8h5Ydmp++YfnEM5q
Y+/TrpfAOoqf+C1TjfCux/jWXuwB1nFH9/285xHh3EOcbUwQsJxSjud9FkKk
9FYKz57TwPJYJuc5KCJqpU6XoU47sE7/KdJLf4dosk+n/jO4Cizv4W0N350R
LXpvt40qA1j+TS2/qTmIbho3/ca7FFiB77RD4k0R/RbNbrf9ZWCdqbq5+S22
P48X6XSxsPvCco8oG8kgRvSwpNPKV2CFp794EfwSMT6mVa0dvQ2sc4lSxDJ7
xNyStsH45U5gRcWEd04tISa+9UJS8glgXQjr8ThwCzEjDX6p7K4FVrSvybKb
HmKWvFnf90EPWJdccy7nfEPMXrvWBonNwIqz3yDZHYhYm5YuxFrnAusyw+WR
hBhiqSR7eN21ANZVq3pDTilikWR3qN2XB9Y1Q6VPiUzEck7BuZhh/iZqxNt/
+oNYweOzryMdgHVDYWxi0zXEit1Dnt97BVgpUpRwC1XESjqIrM+vB1aqyJOt
5z4hVqrQ1D5hMWDd4hfOrPJArJu1b25TRoB1e8Xv4LwAYiXij96vx/DImG5F
mvmIFXNHmjXlBaysX4eoXnjECvp4Z/leK7DudN3szh9GrBOf3wqwi4CV07zg
NRSNWLiCe0kvzgLrfr3tmj3yiKXkdiNO2wpYudVV1+xrEWuDoGLZaDaw8kqk
d6edQMzOzIPssXBgFTyMeNK2FjEfKRSERGP19Cij12RbNmIGP+3arnccWEVJ
pk0kQEwTolbxwxJgFV+65xDThemLFc66Tdh9JeEb/tSGIUbNt+0Lt8nAKvNz
jeKRQIyQYc8XHzG+lrs1iByuRAxVo/hDLzC+v2Be1iieQ/Q4PpdK90RgVePG
X4+nILpalvR+GU9gISMqU0kb0ZobznsppwCrVknEL9sX03sHza4kYfX2fjW1
9Oo4Il8rOUhmfwAW1l/N31/G+GrCq38Gw+/ziG3bRmVEzL7kLTotB6zmVum/
Z90Q/oaGjJOLALA68u4fOtWPLA42WaUZzQHrN6u4AteBdDpNOnmuOwFrzJ+b
QzFB2kJf7pzJHAbWRNLKVWYe0jC8XZFmheE53YJ3OhqM9gvLl55bjQbWEr13
m//Ol6s8LTMcs0PAFqRuc8vigpbJ5aEwYR1gbz39jHkPgc5/kzafibPA3nbV
zihfAfR+CS+MZxwBtuinh6KlcwC6Jbea5luBLUWCV+9TwPwyCEus0QW2zKnB
gsYVsGiJsOuI7gW2bHx8SpszWIletXC5RgG2/PtvHj3agI/KL5pLOgvsg3iv
HX/bgLKBcLb85G5gq50UW79kCFR+NZGW/XHA1rj0fHLNfaDGNto8ficB7EP1
G+sEAoAWoW03M34Y2LrDhU+2dQFtumzX5qY/wNbnY9wWtwC6w+Ful2lNYINl
po8sticcbHdv8N8CbBMXc7t9ocC48kznntJBYJtd/G2l3I/pcFnlQcQDbIv7
1zTUicDUX8N7plQc2FZ1h6QOlQAz9vCmfzzCwMYP/OA3wOZkU8V/vw84AJvE
GzljgvVRUaecfGnsPMpehZ+Wo8CiK78uc/8BbJrZpwYSE1gxS2r3gqSBzXD0
K6W/AFbFa1b2pTJgs87vzOJiuPf7WjqpEYHNuYvi7OKBzbfS/DpOANjWr50D
HGaAvc8mouTfM2Af6RM47moLbKPQhGFhU2Dbry0metRi99htaH33GtjHZLmH
fJWBbTv7gHPHHtgOxiuyQYn/fy6+PJoJbMfjOYJhC8A+bsQ4bd4MbOdzuLko
LA7r0do/l1aA7Zo10RfTAGwiQeWGHw7YJ9GNT1fUga1jpx065wPsU92HKxLT
MNz34Q1yPIDtudqTk7oWWMuP06dGLgLbWzr6asZJYLWtKH2eLAW2r9GB4LtY
n8+TKDTS2A9sf72KMiyPrOC8s1Etl4AdqG0+ZYv1YfPhY4ZiGD5n1JqUy5Ow
Odhr89uqE9ghB+xdt2M67sO92uy0ZGCHKYzc9RYFZoyx4TrxUGCHywV0fcT0
i2Hto65GOrCjdl1lXcD23Nv1J4pPYHy+IL4rofc/YJh5lbvlY/yLFn7wwZAL
9CGipDLC4ojjRyZ/24EuNRcyLo7Fff3flKpLJ1C53z/GS38GdtJ0mHutBFAq
kvMTfjwAdvIE/wMZOyBXnBsk9x0DdtqgrOS3LiDeceM/zpMO7DstjM24brCS
Lih6o7kE7OKiksH9A6C/xYD27inmX0mB8e4YedA9xmYVmmP8LXvw0bbfGbTz
K2ve3d4M7MqMgebbw6Cmtrl36nwlsGsui70SHIH/ZHNVn7Y9AXaTW9CtiXGk
GmzDSH6/COwWp/VfiSpIw/jP0adsJ2C3HbsmnHsaafPiyZ0f5IDdznl46dgk
OhwaYd/KmgB2r3l7wJdpZCoo0dS5BeNNv7FzsYomMmOHDzP/YfUyqP9nLNYP
md+S4Cr+h/FvRHOzo8lfZLX95WTbzjFg/5HVpz2dQ8RXqmunNJjAnhH5pK0j
gEhtnPNGHIwPf3mP7Xwhg8j92Vm8Mz3Anh+O6qu1QlT/jyn/QBLYi+2i76xs
EXVq8N2FdYrAXn7/oOCDF6Kd3G5izdYAzppH7/1bUhGdrPNGeV0AcNZl2dlw
sf2rYu78VUIUcHivTRh21iDGbvuNznkngMPvL7KxfwQxesueiWH7A2ezc86o
6wpi6gcXae34AxxBrnbjmDBiXrso9H2NA3C2HbZJndVDrAMyKX97zgFHRHn0
7BkyYvle4l6Z+QQcUamzDssOiFUyWm1n4QsccSEhy3MBiDWlF1bpxATOjjV3
lHljEVvhRMjPjxeAs3NaU+hSBmLbWDcVGoYCR6L/zaxgMWJHC7XsrdgDHKk2
zvdrdYj9KEzwrsUZ4Mi8/VUt2oHYjUl4VF4EHNmKkDupk4g9RkqZe3gLOHL5
gtFS6xFnfbbZ/OYZ4MjfznS/8x/iiMUM5pVi8SpcUaPKKyOO7Cp31DoDOErh
rzXzAHGUeBDPuQjgKHuzdqgwEWd/7KVHOznAUXEYXC52RZx9tzxFiKbAUWUG
9WqHIo6UhpcStx046hab6ioTEGcro4uHdR44modu5xvmIPbCKjX9AXa+tqLK
1ZpyxO7Rzc/S6wCOzk7kZ/EBsWv4JKJDvwFHT4DObehG7HTvHcWHMbwOL/cb
kGcQ2zf0+JYb08AxmAjY3cyH2Gbqf0NNlYBj1MO3gSOJ2Fszd/ecGwKOcVPq
SIc6YrV+ODW9sxs4prX7Px+1QKzkt1mPxySAY15a9bTPBrHoGTUJCVi+LB9Q
brp4Ihb/8W3ujyyBg7vZE/o7EjGfS6/dWikOHEKs7/HTyYjpMnL4eosYcCge
KUqB1YhRPMvXusQADu2o4pbFJsSg2aGVC+HAYVArp8MHEf23/Jrw+WbgcDS6
XsRsQfRtGs9EtT4Cx35BnnzTHlGVRFteSZ4FzrHf5RoSPohCvBRa45cLHIcf
ePGsi4hswH5p65cPHGfk0Z37CBH59TPu8V4FjufFUp/yVWRJixj7V8ALHK87
ccUbOpH5vPvZIVU54PhUH59iViKztMVxhaEE4AT83XJ60g8Zf7jm7s4NAk64
k4vHvmF0aHi5ucxWHTgJZjtckpuM+g4/OxZU5gGc60cn7vc/BsEHXarKTzD8
k0LeDKrHwy7Dcxuaz24Azs2nPo6fLEGJR6hheK8KcLJl3zvwvgBdLePFXrY7
cIrXhNn63QOrncc0AhcfAKdEknGrJhJw3i7SdoPY92W6ih1CxwD/6iZP9QCW
n0qvNuuCnUAirJQO7K0Gzov4gpvz/4B8IYz3zgEucKpzI79ZtgClrCzgSpoA
cGq6D7L7rgB19dyXor/JwKld4k1WcwdabHk35+tl4LwV72gNtwL6tn1zvr1z
wHlPiWHuWgeMrWJ5C2tagPPR3T7RtRsYF0k/n849Ac7naM2msmpgzCm77IkV
BE5zdQ+Nju3t7+0DZaMxvrS2P0vIYmF7jz9Jw20fcL7+vfx5XB3T2ZWyboXa
wGkXdtyqLwSsH8Lxy51TwOlU0SNfwvqaslMtXRzzvwsvdPkrNgf8b+fuFgsG
TrfT4Me9ucAuz36rcxTjc++5KgHfC8CePe70vLAPOP3piYRXWF/ZXx85UYXV
62CFW9xWI+Acqe+KbdIFznCrUYMd5tcFxvIlljVwRqbE+PPmgZN7ROWCRiBw
xgRGrebasLy0XL5y2wY4Ewo1MRZPMT+fbbywIQ04U2Y33yZhvPi1aDvh+Rw4
08dOb+j1BM6f23L0yS7gzIaaW6gSgDNz48OGVaz//fNb09rKA5xJ99WB+yTg
zLtXO50pw/zyrw/79R04iyeCZ6VOAaetJOOOwzrgLB85dP61LHBe7bdNtI0F
zip9ZrsLVtf3uixjFEyBuwZflCNwBTjnm/l7aP8Bd52Jh8YTM6wuhJ6um0wF
Lq+e4mvWAnDUMku7CB+Bu1FtkL5QBOzVS0NiAoLA5Ve805vpDOy37cHd/k+A
u3n3UR8zTMfFZqy9sP0wcAV3SKwZbgK2Za9bnGsIcLcKfbt2OQZYq2V/knTH
gLuN78ZudUNMxytr/IQp4G6f2wIhecDaaPxak70CXLGJhkaZY8DM43/B9yIW
uP8NRR99IwZMy1cVUVE5wJX4yhO+JRIYfvZdp7ceAK7Up6otT3WAsc4/zfPO
FuDK1J3J4IwD/fLPoCSlCODKlf6pyrYB2g2JRLTbEbjyhY9JFkJAE1a6cfqe
HXAV7rl3jtRh+/0azWcqOOAqJ/UvaaoDuUf4b2p3IHA1fb/qveUHvGTso6dz
NcDVdk9scK8Gq47Mr5WY3uDqnKDaCPmBZWLI6ucnYsDVp9efse4Gs6naG5T4
38A1U3v+bLQcDPv4DQ7vDQMuYyJLS9gVpCxbxx9ZEYDLGrKtfSYFwpzSf4tL
osDl/NzBPNJiNH++Y+cDh/XAPfLpuu89QNsSaWXNJcnAPVF4vljnP6RK5yz7
LtwGrq+720G7t8i04NFzoTefgOt/+eSODxbIXDF1RHl9K3ADH7uv13uDLLJq
EmWl9gI3ZPrUd/HXCBcqvbWhzxO450O8Ir+8ROSOgp+i06rAvZju7QGGiLo1
YZRnbyVwY176cB5VIWpB25bPNgnAvbzOTznuOaJ9J5yNGHoP3Kt7/cUW9BDd
Va7ARHQDcK9ZBqxxrUD0qfYjR2JygXsjLrDN/BlizOp7KQofAm5KYRAq0UZM
z/QDrO/VwE39fCZfthTbj01V25VjgHtrKvjGNU3EogrcCLeXBm6GSEj46lPE
evZ9lxo/D3CztEJPeqoj9o5YVd/3HsC9wwljdj5BbP+1iydEdIF7/1a4YsVj
xPmvR0RbQRO4uVUR2xVUEOe4aLzdHMavvJ8RK8mFiHOnSNZwaRS4hWvO/eLF
5u+P9A1xnuHAfbwnstk3H3G3NZD5hb4D94l5VFWvEuIa7ZtdObQduE9dzudS
HyKu04Nf2/OPArf00oXrLxUQ94LhuqIFIeA+y78YduAB4qZ3i7/4gPGx4mO0
y215xH18YaJPDqu35xMx9E33ELdSkW4QjNVb9bZL+mfkELeqbq1XJxe4SCNW
fugu9t76tZ41xocaVtw2tiz2fT/npE4ocGsD4xZrsxE3wyWSlPQcuHWp8YMa
Mtj9Qxsv7qkF7rvnlxuzMxHX2TWPuhs7v+HHledCUpj/M8ragReB+2H16r2z
6YgrnEjQckLA/bw74eqYBOJ00V4SpbB4vpheCz5yC3HuGhwK+4Xlq9npumPD
Tix/TmzTFAyf1uhEik4qlt+OQs/dv4D79WGS7oP/ELv+aUVIBmZ/f39DTjQF
sf3Wdh59egS4HWPJW86LIbZ4NwdN3gNu19bkuT83EKvUyaLgwTvg9jJufvyc
iJg/mnk6vTA+9funlhti+s713xrlRhXgDqak3Sm4hhjjOp96A4aAO9JxO/DS
VUQfypRx/DoJ3NHl9ONz2Hy3FXBR3uYN3AnpDKLzZUR7rzC27wcJuNMnsnab
xiFqmrDPTzvsvsXfdxuWoxFh5SsBHj3G7MXZHUlMRJg5Iu+H7gJ3ScDCdb8M
Ivz6IftQEMNvSfkXL7cSEVo6Il47YPW25Kli9HQUEfJeDaYHjmP2ZHnJSSoi
sLUmTQ9g/Wp59mP6150In//yRf6P48Bd2SA16jGI8Nn8fGtOFWC2mNfh9U8R
Ppkau+vHDGYfEv6mTkT4iHatYzJdmB3EFb4cjvCsb4e9v//fXuiNNu1HuNXw
rJA4rB5WN2u0thch3ExB3nRzOmbvuiDnHYZwv77+M85Wx2z9fa8yxRCuRZEr
L4b1o9WwU4sLOITLfUa+3t2D2Zer8dew9+ltIYfWOmN2xtbUfb0Id316wgww
/Feri7VZoQgXpljkLLgWsz+vOz9qhXA+xivdg5KY/ZPZHCWKcC7clGunAjB7
4r7sDux7W4+Q/VtaMHv1n1fRI4SjReQdt7b5H4navpY=
        "]]}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesOrigin->{0, 0},
     PlotRange->{{0, 100}, {-98.96521054288439, 95.82164288218922}},
     PlotRangeClipping->True,
     PlotRangePadding->{
       Scaled[0.02], 
       Scaled[0.02]}]}], "2"]}]], "Output",
 CellChangeTimes->{3.394762732652481*^9}]
}, Open  ]],

Cell[TextData[{
 "and get something weird.  That is because you have previously assigned a \
meaning to ",
 StyleBox["g", "Input"],
 ", and that assignment is still lively:  "
}], "Text",
 CellChangeTimes->{{3.3947639592528152`*^9, 3.394763961957835*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "g", "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwUV3k8ld8TtqfIvu/7vl0u1/7OXV2KtMnSJoVQISSRLNmSsoRQEWUJlRAq
DsoSUVG2voVUiGTP/ru/v+Zz3jPvzDzPnHNmZt+5E/KnmJiYWJiYONn+Ly0b
Ze7mb9xQsEjZu6sq5qEHds/zjKw653PM7qP3+cCaF9hjT7WC8uBG7GyXrvyr
/ZnY86Sdh8eMUrEIew9lGb4arMGTw8NPrwVLahDVtvXzwppzt2q2hEOxjPVk
HbbjDljr9XVLako6lmeR5HFd3BrrCPnXnMj7GCv05unt3PLEuj0W6R8T27Dy
qHevslgFsA8lwb+4o/9iz0g6OjuatbCe3GX1x81h2PPKM8Tm7c+xTxmBPvtZ
dmAv00NZH1+Zw/quz5cvQTqG5jZSkEwNNhDtN3s7XBFrfq9x2buvBhsK+Ys3
f/UEaxk5ZnL9pzj2zWOqNsq0HXt3uzWIt+MeNvzY8LKg+SPs/d2+uFSPZWyk
JODeyaFZ7GNs1N+xq1vY99y5UU6Jy9jn24aXVH77Yb+uz3jYZWRg33Lfb/Xd
7sbG43Xico2+YiPsg+84cM7YRPSZ4tnPStgoaXfht3Zp7HfI76lbQk+wsXcP
hB0VKrAZj3G/oeS32KRkfE3lhB32F5fanp4Zh/0Ouvhy2fQh9vexgTPmqYVN
fVyeijO3wGZL/C8lb/PHZq6Xf7stm47N5/6tx1M3sbmQ+GpK5G1sQeam3X/C
edi8Ynv7QMkbbCFH99vVHxRs/m0XW2RcMraYcY6pL/oatsiX9WPvl23Y8vVp
ckizGLbsm5P91KoM+8eV2KuY8gJb3jh4/t9iB/YvXutk54mj2L/od/Fu/trY
SrR3jAxzAbYSGZeNMuaxVRYukZYPVtjKP+GEO388sdXwksJzuZPYqvvi99Oh
a9hayERbI+CwNV2H6BXxQ9jav3gnL95ebC1Ox2Mx8xS2HqQ2KfAtGFsb2K7T
4ROLrc+3hbx4LImty2eyCriHYRt+nlwnL9dj665J577ncGEbM9tydtq5YuuZ
9yOD1FywTZ9CrWoZNmy9JXGSg/oH25ykvTo6XYit/94uslZ+B9vy+Gm37ZUN
tsH+yYniNoVt/RVZPLGFwzZEi/Y3/ekBJnPFrmNyidiGdJRlXMQPYLpirsDd
eIWxL9PKt30vML0+EFh3IgDbYDPGh43fAWZOn3ZPVk9sfSz5+s/zwcC8+6q0
cMFhbP35bP1Yficw37zj20y1x9YvK9X52RkDc2/Va9+fFGzdaC3792NuYBHr
EpOJNcbWRne3UNrKgOXwT+9ONS1sLXyBGXtyDVhyNxsutstha7wf02qT7wPL
D1FBVS9BbDW523Vq0BJY1XXdP3FxYKvsn1fz6z2A9YxVXeSjVWzFe6jablYQ
WJ8e59Hb/Qf71/zp9ZL+G2BdDHb9b3oU+7ezGVsRdgM2k5tV15I+Y8vWRcYZ
EvrAFla83UT3LbZ0Iek1QfQIsLMPPEnzq8AWiguNE6ZNgN16jo0k8BCbL+d6
bNGYBexJOw7NPMvC5go+/7eX7AocIqZbNosR2F8v6+ZYzibgcN6/7196APbH
v3isrX4/cNz1fviQ4In9XpYMWj/xHLap5NgxX7THflYpOuyVzAROo42c5xty
2GftdkPdtWbgvCT899RdIax7NFC59vUEcDboUAQxTqxZTJag9JsO262O/j57
ZaahLK7FnzowBDsOIVNltvqGb43i97jqeIA7OLIvhftIw7LgXoGql6+A+2W2
JlZm37DCceT59ZOHYSfTs8vTdpSG1dVQHPtgA+yMG1Oh39Rq2Pyuab/InQY8
t6kBW4LriHUv8YXJtB7wHWHbbrTzHdqRLU8W/tYGfKFdmQK7PiKuk+LbQg00
gS/ntsqf+H7ErRbhZKPMA3xfdCiF7GNo5/2L2htDc8C39q8nijyJeA4FEosn
LYFfsvnEsYi/iJfjhRHnrQfA7+J4RXRjHfGpR81xkXyA/5Iiz4I5C+K70Hgx
ZGkG+LOm77wP4UR8TZlHO2+lAX9djVZpDQ/i3/5rT7nkTuAfjHwRtySI+G2v
V5SuGQL/qq3NKbwY4r/uXbGwNgACEqIDRH8ZxN9+Ytcv7hEQcCpdWvmjgQQM
5ROK696BwMULVz9r6SGBk0/uisldA4HbJKEKLyMkcOOHGbUjFQRqufOTisyR
QPUD4UXCORDo79P3+klCAv2f568PXAWBf3mNVkp0JLB0osrA1h4ExXzsFU/Y
IUFenGtGsD8IGht93co9gAQVtXWiaXwg6Mh8ZuirExLUJyaIlwSA4IWO9Rqp
o0jQ3EXx5TMFEMxIv5bmfBIJEj0WKi9ZgeBzVwnfTC/G+hDdb/YiCPZpFu/+
7MvQF38d7vcaBJeWjNWFgpAgLs9X2LYKhERQK/u+UCQoP/LCPkALhIyuHRy5
GYkEubtjOKPCQMjh4NirrjgkMOeqQir+BUJBcuezuJOQwMeks5Y9u0Do1m+W
IJs0JFBmXyFVrwtCVVXJ++KykEDk/Xci5X4g9OmKnE7LPSSwL0JlT7IgCC3a
POZiK0ACUhNV+pE4EBYWtvhFKkH8I1/YXV9/BmH8t87mK08Qf56TqYGLNwgf
KHG5V1+N+F1O8tfe8ALhgIDJS+svET8f06+DfY4gnIZddDRtQnwNhlW9j0gg
3NObwVfdhfh2xu6R4ckG4fl7ylMLvYjXyddvuicVRARPV7brDyKe6/uqTiq9
BZF9mx8jyn8g7s87t22LjwAR/3bXI1OTiOu3akixYBGIpKT+NdX4i3YsWSnM
kbaDyEf1nXMP1xHnjKX/uf3aILp3v7XbPSHE5ueUrpn/AUT9pPux/yQQq1nP
wYvZCiB6c9xDSlIOMW8sFPU92gTR92HRvRmaDZu9fhNirVYgtqcQUW+QGuY/
uY+dERUEsbMfiyttrjTMsgpc4Wr7DmLXN1IV2esbpmyChzNqfUGsc787U6hp
w3AqZffluXUQp29xvThtgHV92BiLt2kDCZLDIRxZCdvQsx5VeWQCEq4RcG/z
BDDpp3+y1N4OEldKNXhqc4G58x1SU+sAiQbm9Sk9KWDb/NonF5IPkmZl9wul
hYHLtu56/pMJkDJk+yO1zAGC2eE3OLODQOqAbt+1CgoI2YbpNz2ig9R5Z7R6
JhKE1taXUnFyIPX0SWrf900Qsa34fZepAKTeD4XR7pmDyN/I3IrHLiD1l8O9
yjkERG9sy9bTWQNpncMmKe+XQazeB5/4+hhI28YqMicagbjdb9uLvQMg7VPB
7WsVAOKDR1/m+x0B6Ufbvtm++gsSI94Du068Aem3+m0vL+qA5OHSxu9f5kB6
4kiFJt4HJD/qpZgT/4CM6rOrnCXjIPXoMHtDhxHI0L6eveCuAtI8lU5ux5ZA
xn37oZ/yJ0Ha+ymvzNwWyFzFEw98uQ/STdqD8UPqIFNwTKM5YxhkBLZ96T+8
B2SaE4T098uAjIv0k7hT4iAzWrmRx3MYZO7sCagbswVZ5m+/eNuzQKb/cr8R
/jbIyu94fzl6AGS5byjx6P0GWTCsnQYxkDU5Rf2TMQuyx47nu6w5gOzRX4Ns
Ie0ge/la4tvqNJAN3cJHxbOC7J3qIBO/jyCbesvrteItkH05cqxImw9k76e7
LBtfBtkv3NYi43YgWzxTe4Z5C2TXCPpX8xMZ62Qe76/WILcTt3NV9xTI5nm3
pt3YB3IyYg9ih3aD7I2XFm9XhEFOl8lCOBYPsgHto7U1eJDDfvXmG0iBrH18
jxe3KsjZd/vofWMDWYX537x5EiDn+py1PmEKZKZY3roXD4Cc/93s3UY9IPPo
2VcQeghyUTH6A6N1IHNi2ynju84gl3bmrUfSfZDhZQrIaPkGcg8Oui6aJoB0
RcH6/klFkKs2X4n86QfSuzfemrBogVyrUjJfiiNIfRVJ1B14B3L93Gp3LQGk
Tm18yH8hAHLj80hzUg0kx95ws40vg9zK0KHadD6QdL6S5H5RFuQlS2J6p7+B
hCZelJf3NshrpcicuN0C4jFuknkOPSBvcbHqL7UcxPoXjjz3SgP5Y/QfXHcu
g+jJt/UffLaDvK9e6G1rdxC5e8TTUVcY5CPEhFQWbUG4e9pBihGI/P1fZJKt
FAhJ1ouvbDMG+Wddg90rbCBodELBMC4G5F9X+x8p+A0C1u2vUvdXgPzPq3nB
63XA59Li/DicCAoailuPS52A0/3465D7s6BgxpVh4QjAYWjwnwYWCAq75nU6
2NSAdSV1cWvAHhTONB356fIP23ybL+NgdxQUnh5/Kc2Vjv3y6EpTtRcAReM7
wQlePQ3rHn8+5vEIgaL1VT4xkTrE1EBwO8BnDIrOPoUPmu4jVhuVh332L0Ex
1Oxzo4Q/4jws5hp5/wAoNgzil9/yIX7t/PLumGOgZCUye0rdFkncOBdz8RsB
lBz+exF4bRVJpu7F28ypgpJ7wdWrf4qQVPL0ziNKq6AUoy/+sJINyVzWv9Dy
dico3fr3/blIBZL1toPS1hug9KChrPXiMSSnznZqjF8HlN7YEsct65A8+4Nh
5ZwAUPokxPUvzxPJny3S5C7dA0pjg5+3swkj+Z4lkaD0m6DM5uml3u6LFFJW
8H97pkFZSBdvqiWDFKb8i/aOVYCy4uKmTVIHUiQiu9v/nQNlclSK9wEVpPjN
66IbsQ6U99scvlTdi5RUU6JFBBtB2Y1fJVE8Ail5K3+leL8FZf++vzmhOkip
hPtjVPQgKEferSv9+gUpjem9xMUZgnLKqehXxASkLB7KgzjsQPm+lt27AmOk
bD14uN52FpSfzot95fiJlAONj+ZdooFyY+3on9OpSDk7aoWu+gGUP1wp3ewE
pPyylEKo3A3KI1YXeHX+IOX+vBvJhvWgPMtDlE3OQcozB0+/lNMEFaZPXLoL
NkiFqa7g9ZAUqPBlfwKHf0iF+43LmcvbQEXuxD372gdIRdBrcYa9FlT01E+7
Su1DKkL3dU67/wIV7K+BXzgTUuFzE2Za7AOVPdUbESPlSIWjULDw8X5QORbW
mkJxQcrLnrPJrD2gco6SfL+QEymPFny2G3wCKuFcLs+2VyPlNsfd6beVQCXp
o3Kzz0mkXBRJKeM5Cyp3M2d6uvmRcpSiSLD5JqiUH6sdw9UjZUfzKCNeZVCp
V4laSPNByqofqvuk5kDl3bQd27IEUpr9RV9HXKDyX6WYsFMrUqqOsrj9lhtU
pkNGlV8GIKXAMnZD635Q2SCWGskqICXdM6FdY3GgupMziBbxHil+75o+ebQX
VKW6wWHsMlJM+Y9LjNsHVM0P914oHkAKI4Y6p66tgOpuxbtx3DFI4cqdQhnx
baDqMumZeQ6PFCRmyr/XPATVSxfWa/E3kTzkpAgOvwLVa5Yt7RmWSK5Tbnxw
+h2oZrPfHFj5jeT2jdQrluBAtS5VabWBhmQKFrmO/LgDqm+dZrjkF5B0xk6e
qn1BoDooVysZnYekrpw1PvFtAVRXym3NrdeRhMnyL+6GBVAzbg8M661Awnvk
/9rI2YOa9eiJk1eLkOBP4vHs9wBqzmt7dhndRQKBdy4YcE6AWpi2ulhmAuLZ
UOvpxBxBrfHml2eH3RBLfNb2n8FSoG7jSB4fE8Jm/pt6NrnbGtRd/PS6b+3A
lp5PHMt6egDUfRKkq2lM2EbU+cowfTyoJ71YjiqcAvbrendzfURAvUf2kYz3
G+CPmqz5QGEFDZdfAvvng0Dm4NABMzNP0PDZ2jIt8AHZz/lFvoqXQeOy2JT8
wRMgVyTEPKexCRq5Nm/+PLcDBeHmyrLMW6Dx1K3ikycFFFrMBWrQVdBoCr33
UtwUFP3Vdl3fZgYaY+UX4y8x3o0XYaY2tddAY7HV3VdLBpQdL+5plmoBTY7h
/Q7/CYHyXz4F+2eioKkuoK2EMYEqD5mdqHsHNE01JXbMLIFqWph27cIMaO6i
cMzmToGaUNJJjvLPoHkmcLiBpR/UmaOsHhMY+5eT3j141gXqZ/m7WF+EguaN
wrrEk68ZuN/hvAf3gGYuKjwvXAca+jf2VsXsBM2nA2lOLU9BI8FgRsWU4b9p
LgIuFIHGYObzABUR0OzlOquqdhc0Fe/sM+VNAM0fSi47B9JA85Siz0iWKmgu
WVgtJDC+3+N5s9VJA61tDvghsyug+YFqLNuRB1pi5+Qbp4JAc628eXnpMGip
x/EU3fEBLRnDLPaHPKBlmrt2w+4EaBm3KCYKrYPWrtrxwC1HhtyzY357D2gd
/vjp8BM70DrYSI6UpIPWmd9NZFcKaDny8QVeUwCtcLbHGgJmoLUPx3X6Vzdo
3XjX7szcBVoU36ZvVuGglZv+PX72OGjpNOqPDj8ArafHNmqH50CLXxY/9uwe
aDWpi068jwbN3/HfSnY0gdbHOX1xxMBdz5LAzWkOWt9f7LZ+XAyacYnvBK2O
gdZCtPtFRj+nuUvn6jm7ONBmt71SnNQFmuwzvfRXRqAtIpI1cPk4aNQMyZ7Z
KwjaKt+qtp+ZAw23Db5P3IdBm1DUbXIkGjS2nbwVvhwN2nS/idO2oqCerzBU
qpYE2k5mrLfNS0CdsMvebfI7aHuxSbdrmYNa83zOSYFp0L6Wvk+d6ziotir7
Xu7mB+2cYz6Oq3OgavFjT4TUM9AuU4uJm4wGlbLkor4bD0G7q65uvL0YlIPx
0oGrSqD9LeqTWK05KPX43dPemAftv7tn6EVdoKSm4Wi2xwV0+L8pFsXOgUJ9
RQYPxw3QUSiy6L8QDQpMA7dk942CjoGfI6eHCKOP0Hjo2CgFOgdZEz1pZiBr
I63e5IGBTqbqohpbNIidwyXHnWkGnaJZ3kMLIiCSF+pY+SIVdGrr1GO/F4FQ
R0Si6ucA0BnafeRX0zvg5yxmya95Aroyvi2FESLA4rXaGRv0AnQLajNVNoob
GCPPZd6QWdCtiqxwmDZHLFcD1AsftoNuy67OmC9diOPR271BW3yg++sr088X
c4hnNvX2p1dfQE84At9jIYNEc/2CF3lbQc/xwZ2UNQ+kGNIq7UUvB73jF5un
7NKQ0p5Hl77StUHP03aSmoeQstz5U//NMPYvLBn9o4shlcqegaa5LtALf3tk
bzYFqQYzp9facoFe7N2okj++SM3IwnW/iAfoZdDeH0lrQ+r5QicXdLtB757E
UvWvBaSxd/cmMZcb9B7OSPOZySGNla4rPCdWQa8643TTSDDSMl5Q7mq9AHr1
3jel8AVIqxu7VMYWDHotWHVg7HukfUzBSGLXMuh9GmdV01FHOt5cEcxPwkDv
v5fqEREOSOfn60y9tiHQ+3Fzz2BvJNJ1CSGIGLWB3vTJILxqOdJt3x41Ggyg
t2iccz1kEOmJFt2PvXUZ9Da4m352cSA9K7HFK0wHAMc2PAHy+kjPv6Uzz7oI
cNxVvLcDjiK9rALRKotngBOKN5xrTUB69flFzTc6ASd15PBuiWqk97XWWMyD
HXBKuMgHZ0aR3uqAp7BbJOC02Is2G3kQTmClrWN9EHAGA92OQqYIp8o3dFyF
Yd+sbPGphzvCEUSE9Q0Z+uRIqR11KQhHZh7t5voPcLscSCd31iOczbuSBwXc
gNuv4fnq+G+EszvfHSERCDjnzRsilWIIZztT0XLaGHAnPlb5bqMgnLVFdaAw
Ix6vh0Ptzr4IBy6Wk+JOgPO/xKJQloNwBrTKk37OgAvZoxbK1IZw8lvRNsXp
gItUtPu0fwHhuGMU9JbEABe/HKhTKIf05r5w3jvUCrjkjuzY1d1I7xNrbYY3
I97b9xpHbIOR3jOm+oHruwGXd37cNLcA6SX2FU9sTwFcMZ0ndf490juRJNit
Ug64p1L4ado60sNr5OQMNwGu5q8LLUsN6TFXTj4i2QEOvY64N30A6aZ778cX
SQHuvU/XvtQypFMQHeSSXga4flh49HMQ6ci2/ajwPw24YWFJdlMOpJ26v3nv
SjbgZl55PB8+irTcSrWvLDL4Wk5O4jdIQJqomi7nxPC3darSK6YaaYqEjyTv
nAd9Xh5maW0epF76LZFj8y3oi4yqBl0xRWrTjYY9HyRBX6batrvHHamprlyJ
q7kP+jpHsyIv1iOVeLGmc3l2oG/72OBXyzmkyCq1U2FfH+g7aHmXAkLyW8Do
BudA/2hxvu8LPiS36Djno8wB+ucKBFYeP0HSeSxKJ5IVQD85c44rcw4J3So4
VvJCBPQ/RT7R9Q5q+FijEVAX0wT6/239mv/Rgn2yTjTWE3sP+j/DZGuOi2J/
Kh+I95K0QH/5wg3igRpgriuvnlJWAQNxn7P7LVZAYJTZ1Z1RDw2OOGhd4AsF
RcFHBziLIsDgVM9Js4ROUCL8+qcTwAwGZ+1zmNilQfnQ6dLyDiUwCN/FFbdS
D6oxPyhPj90Dg9g2sm0AD6ilGxW+MY4Cg5vUS/x/joH6vdDdX/v7wSAPm8z6
zgSad+8/8Tt0CAyKXykcO2IPWqk/kz0usYNBhamzYl8eaEf8UNe27gKDZnx7
aScJdGlTZt9FY8Cgo4LZj5YCejzPzLetW4BBr66JIRoFvcCGxMFGhv4P9aL6
qijAGTXj7K0awWD64XCUbi/gboYKf1cNBIMlJTGrEiXA/Yg9MX05Ggw28+y5
lQJA37BtvOS/F4DfJhP7/u5r0I9Qrve4xgV43uyGW+JCoN8avcumThjwYmLL
TqmnwICz065l7ijg5dJ1ZXZWgwHl53jZpDLg1QXdR+M4wOBSfe4Pw/eAx928
W8jiAAZl2Nlaqj3gTXd+9g4tBIMBh4ZOsjHgSdd4dJf+gcHW/OW70b8Bv4uT
uuBHB7w8h1j5IT7A778aVvM7E/DmV6K1eSQAf5ilKuzUBOD3OVCtjusB/mT4
NHHYFPAnQv23tNgA77OhzOGcwJATL9L+PAR8wMQSt54l4P0CKird/gN86OdW
AfZZwPsum28vPgH46OZM0aECwHufSXMvYQd84pPT0k8dAX/8E+FxIAJ82h1T
xVgGD3u1Rr0zVwGfk8ClfrieEU9AKudOAuALgr7o6vsDXqEsod14HvClbmWG
nAweWAftfGKnAF9pf9n0P0bev20+vGjCiP+lxR54lggGz2XvgZAK4F9ryNHi
MTCIJ8fFd8oCvlNkdvfROTBw8FuYnzgP+F7Wpn34h2Ag86xmXcMT8EN/Ux13
OIH+qMBE3RFdwP9+a+hWhUDf2VFmyC0L8PPPOU5fY+ST1/HK1e+JgF/L7zvn
qgq4hkdsTx1MwZAr7OIl7iTACcQlnQ5tBUNBL5sro0TQqyJkG3woBEPJQ5Ix
zxdAb/+VDzXBVWCoqfcqxc0FdDnOKCdFxYGhgXRSpgkP6KjnVrEfCAZDsx3H
7vI0gTbl1UW3pAwwtBljLq5TA0238CTOIWkw9MqgNvIx+lFrg7lbtCgw9I8W
aflZAiq4xy8XeMbAMMT3V+fLI6AsOIo26hrBMMEmvt/jNaM/Dv7t1PEcDIs3
3s3UJ4Nkv9DOA4n8YDhx0kHGRwtb69VctuyPBSNPnPulVjfGvBKzuV9NHozO
LdmpmJ9Eikeu7bghUAxGF14Yvn/qjpRy+ndm0p+AUSyVXTnbE6nyCia9quQH
o4eO+d3nziLN2tIP8cd9wKhc+trFMV+k9flm+Q+ldjCqGj2v5OSHtKdPOP0s
cQWjNz6ki+QApMc6RBwb0gSjsfARRdEQhJsfVerdJQFGU5S2d4mhSN/dUSOD
NRKMFrY/CWYOQ/q9DYWkHS5AYE0N7/x9BRkUzPyJfsoDBC5HjwvHIxGeIyLi
VtoFIAhK75H/FIXwbuka/xRjgKBQKBPUEIMMeX+o7+pSBIKGD4c8Pg4ZHv27
6wkvCxD09aY7iuORYbGc5sr9O0AwWfwUJJOADP8c+6lQuQQEYt0rudREZKST
Xc28owwI1uEFHZxJyOg0Wq+/OwOEvZTEwLAbyOhePY13jyoQnLYHyM7dREbv
o2wV1A4B4XiXy1uPFGS0zsy8e6UNCJ6p5IAvaYigoJ7gO7wOBF9HTdm9txCB
9NdWJJURT7C0QHtLOiIctf5DJIwDIXxkNcAsExECtByW6uWAEPtwVOZJFiJE
Jz0PzdkEwg3v9nblbES4cTqBzmsDhAy9p+ezchAhrTo9d9gRCHcXb8vw3mWs
fecW/+UB4WHdlbboXERIusUxOsEFhPJwT/+VPESIkkv80dILhGqKvfTZ+4jg
L5D6+mUlEOq3E1q/FyCCi3f4/XZGfG+6ZP0dHyICpr2j2YCh/y51m9S7QkSQ
dqauueCB8OnQn1ZSETJaXM78GLsHCP9JffZ7XoKM2nc07rk2D4SxkXoprVJk
lJ7VE8AXB4Sphw9a8sqQ0dEnxqe8GfwteF/3EylHRvIHysi8T4Gwrhcoee0J
MvyaSiwpTAFj1sXDLUwVyDA9+ODEajMYc9VRfAOfIUNr/syvPw+CsSRF8M2x
aoS/e2fYSMEajBU518711iA8seLZjV4yGGu8+y5hXYsMvjXYiuy6BcamhyrO
GbxEBjv5oRBugrGT917xbY0Ipyui2M2498auAzY6+T+RXh5PY5K8EBh7WZEp
wI30eJj/TF0+AcaXFA3PBTsi7YrhPf4LQWCcMyT+ZnwGqQW+bZBZ/AvGD6wF
hq4KIVUBYnffIh8Ylz3nmpU3RcqFDuHXnziDcX3KppRTDFJ4+eV7bt9hMB62
GfV/K43EYbRf06kBjMdrhuLcSUhE/InyEx8TMJ5V6b3L4okEJvXW76hcAxMW
lpZ200rE+Tu1tWlGGUwU6x7JPtqFvVmaFFDOrQITD43znYkXQVLu0fm1d25g
ci7TZ5QxX8oct6rYvF8HJsEcp5Zfvwa5zre8xq4/wCRu1FFhgw8UV9tTb59M
A5OSLPOLZwpBQ+ov+/Hc92DyjNPwxvZO0Ez/XBqQeAxMXgTpFDyYA+0dbP1y
oZ5g0rlPrvurJegOxrXdsD4JJn92sKvYfQL9RPe/C6ruYLJ0YdNschUM1Jpi
DZMawGTzx/LeWDkwQFrP1ZzzwJS3cSK0wQfw34LFMcohMBXTHU1xSQFDDxao
Hj0LpnJ3hgqXa8BwfJqj2mEcTHEX3/XosYLREE0f690Fpia/WsY71YCw6/Q+
0t5sMCUdbNj0tANClUPO4BsmMLVprhViCwBjsalL29/dANP9uAr13CwwDuLa
dlYZganLvUeYOQLjzjQx24O3wPTkzoID/T/BRMrbWjnfD0x9Lt3xCuQGk1NB
rC20C2AaMJF+hR8HJoXZcZMb62Aa2qrWx8ng9du2Zo/aSjCNLnihw0QCUz47
UexGEpgmRtpGL3eAqdnR0cbwdjBNO/ZtaOYAmB7X3OxNDgDTHAt//Z9fwPRy
UfMu/ggwLZBki/96CkzT3+4YdGfoP/qXPvzpD5gWxRhV2yqD6bPP6oR3QQz5
Cdd13B1MXzx7kfR6C0xrnpwvXWTgaU62/fEyDkyfC7IsOTHi7zg7bF7JB6bl
Kxdi77iCac9u/9RHt8E013Udb/4STIc02CbzFcD02m57+b8Mve/bMohZJWB6
rra1SZkKppM/1DNTDMDUtszW82EYmM41vZiJZ/ynrOkaLpgApqu5drQIKiPP
phIHJnjBjCVs+E5wF5igEcVrE3FgtsPFf8HXAUyuqr+S6z0PZgIm7Ls8voEJ
WaaOz5cGZhIiGfePeYLxaufl2+yiYCa/oL7iwLhHpbApFuYKZrjHdoU0xju0
/up5cudDMDNJHN60uAaE7IlruyufghnR6/xBQyEgGCrSrj3dA2Z7lTNZlZTB
yEHMYG7XYzBzYtVwliwHw68s85oZ0WB2fPjlU0EjMDzuXCLqEgBmvtkjx1gY
/dOBhk/+a/pgFnzxfNXKBzBo5dSUsfoPzK4c4uCedQYDvIGOTBDD300Bjbph
b0afX1Vy//cHMHscFyBSnwQ69flzyTK3wey5O8eZalHQdhK96KBYCmYN5MzX
Zbmg+Tvv1lCGH5h1bb7yz3kKaqu2yiaqCMz+BHJ0hfSCQmuNpqTdEJgt7but
7H8E5LViE16OM+LZ1NMMPf0TZMUShM4IApjv/G2v4bgMYqEa/g8G2sBc2/V2
DEEC2PvPk6EiEMx97LQs5o8jvv6NN5zib8A8oPc9k8BOJJRtavzA+wWYh7mc
b9KrQ2JO/TVhxv/APMnzBe2sEJJtnUp5XMIK5k+ibOzG25CqUn3FmPM7MK/d
/od/WyBSG/d+FBmEgXnjzeQeFQWk8ZBbO/tGOph/vDNwyC0U6eyUnuhoPgzm
CzWex77qIX3LPW/Lav6A+QbGLb/+HzJg2rhV4XUfLNjfPB6TTEAG9c8GCl2+
g4XIx2VPxzFkqOHQrDepDRayTtkaF5KRYd8nx9O+EWChOmw5lW6JjMKveGzP
xsDCeDrGt4dRH1/ePHnVjxUsiAEa+nNUZLw39f7O4d1gYb36bpFvDhkPMwkR
3y2Dxb4Iv+e695CJR7HJA41ysHDhFL5otxuZjJ90jygeAwu3pFoznxVkeoLz
o76qJlj4CB/euPYQmfaey598VQ8WYQoFEe1MyOz+PE/ok0ywuFpMJ/8qQ2ab
nXxxj9fAIkl3ioPDGZnvGz7+6j4vWKRX32hT3obM7wlGUr9/A4t7FgYJ5Epk
/n2Xurm5MlgUNvftPuGKLGTPkYO2SYDFE5tLPBE8yGK/F1N5phtY1HyQeX/v
BbIIVx3klzMBi8ZDTSn1nsjifsZtmSRhsGj/6n7gP2Fk8arkyLS4FFh8PLVD
ZK0JWbzfX9BAZfA3+LtsQOIcshiMt/nrzQEW3/33ZptIIYsv5FT8ymew+P1v
8cihdmTxKUxdayAJLBbCb8sGBSGLFgMlWowTWGxwmI/cUkQW5ae2zz5OA0v2
xOH8Z++RRZJQt5xDPVjyCEaf+hiGLE7RBoTv3AZLkSw11VkNZIFn3oh4UAeW
snIdk7x9yHx1T8SkSB9YqhaeK9WJRuY1ZhLHhNbAUk9H8KwtDpmf+fgrNF8C
LI0rn+t5f0Xmkqrna+5fB0uimfNcwjVkhnY93uipBEvrxs3KYmNkduTATNq5
T2C5j34/qPUHMp1z/u6kJgWWzt00458pyDT8Qho5ngyW3l+uv1KcQiaRnmPW
BaVgGeCGCyfdRsb/wgTZVWLBMnTiE9GVhow9VHkC3ArA8vqy1Ju7jH5Ip2du
5OM5sEw/2Kd1OAcZXSNP86mMgOXdyuRUiUxkOKK+Ydw5D5aP/TmOpychfMg2
SeK0A1i+n5pZS2L0s6dwzmMWk2A5sKvkxO5ApJfiez47QxksR0pOtu/wRbqB
x7cMrs6A5ZzHQHqMO9Jc1RkRdfkGmOBoM+7yPqSUK+h688gcYFLEsExzW6Tw
PGcku6wZMKVcwuYqHcm1rbM+/6wLmOGR0s4gSyRefe/3UV0VwBz60z3OaiJW
/OoUb1koYLe7Tt85ygai5rFHfhmkAXZfW4lNcgsk7Q/Tfvl/Aazk2levgVWQ
PTq49LKmALAX1vuND/4FxWclGZWfegH78tq8x/YLaEbFfPg3JAXYD4VlU64+
0Pa8/Oz+xARg0xFPc9s/MuZrNwXPA58A28RUzlLbABfoHdqydgCA9z9OtruD
gB/jmf+ZBQBC3KcIG/1g+Izf8x1TBoCYWZP34U9gFHpN27ZdDUAuK/SjxHsg
bGww9//sBVBqH2S/2AXGVdEbcvl5AGorBOP+DjBxL7Bcnl8GwB2avZfeAqaV
gya2PtcADGPtPi6+Zrz7SVKt7dIAJtWlHAcaweyXYO2gqxyAxc/tJs/qwTzQ
EoTVfwOQhN3PCLwE87XRrnrXYwA0SnOuXx1YhPRHFFR9ArAJkOt5XwMWs//C
vB3IAPs+DpkmPQPLNpUDtoQSAIc6dp7sE4DJvb8dnH0KwDlPZ7RIADB/gvOE
fB3A0TjH6spGwF6SS4q82ABOnItMaPRl8DS8r1PgDoC7Q+nRLlkAqfXpclte
AC+Lz/qDXQBGDVYT45wAZ5WZOH6FAex+TBIregvgz60+uKDFsPum80MPI77A
+f2PmYYAfNYbT7jsALg4GBa1MwHggt33SvkagLDGwkMSJgz5/PtGfTxARNEH
TZVxgCv446Ym9wGu3ljdMmDk4XLjD899zwDiLyj1AI1h5+jfm+PbAa4ftSvc
vQjgu2MmTdkYIJkafMmpgIGjhfhKOwfgltb9Pe77AfamGEux1QLcFuxUPM/C
KEx+wg+iSQA5q4vL4U8BFN15xS0CAHJHZTsSjwNwBNqU4fwACtqt793mBazD
qn6z0gug6Mn58w/qAYuYKc4SvQVQmnHHquIMYHp/icMxUwBPLrdKNjDueb+T
PY2fFaDy1N+Zjg6wDDYPEpBj5LPGVqK5PwQs+crUtzo3AJDkWe/ZfrDQTNLk
K1wFeM2SiW3Ggnm5js8+1+8ArRNNQlxGYK7+UkK81xegu0b4pVIamHELzKXF
Ms5Tzz3sJo4MpufFN10NBwH6Yk6ftJgDk54EzVxGHwPfDrziPmQPxhEG32tr
PgP8mT15OIEbDFN/flXuZMQ315+kl/4C8G9P7XK53Ayw1FDDlu8FBms3GwQv
MPKwmcRV+rIN9O1KWco4tYDIo1GxPhMN2iHvDxr9uwNEAf4v79cNQPOOv3VU
aRwQhVc4HnCOgnrN/Z5upm1AlG51tlUAUB48H/LztDAQtU8y3zmwDpJPFdiL
ohOBuPuOvUVdQMNSFe6RmAQFiPYDLK3OVYgtit3sw511IB4UqrJfXUI7SzSZ
G//zBOKRRImTZheR6KKGU8c9ASCeDRlLeHkZKa3GxrOdtQGif3WG0OEGpKon
ems0RxeIQXPWdzaYkPpxYwGViUYghp8uf2oRibTLHtG3H2oC4k3H4L76WKS/
JDW6qswLxLQ0TdejbchgLiVK3CsciJnd/01u7UD4ifELnecdgJhnRdrEGPN2
m0ij9ZEJID6IXIz99g4Ryt323yUoA7G4voj/Cg8yTgr+6nbQG4gVRjuV0E1k
avqvWPJVGhCr/RrKj39AZhxj8pkrYkCsK/M3ZhZAZh3Z6szajP1mpb5dxFvI
wjJygnJeBIitx+N7Rz4jiymKpsnFHUDsyDE/GimGLJPndAuyGfh7BfP8mrIQ
9tqWP5V7Hoj9e/avnRhCoGb7p/qRKBC/XOO4yiqFwGtnRYL9fiAOt9Ty5B9B
ULiXZC2nAMQfLN6Z5LsIhtmpVytLgDhhKSP//RsiConmex40AeL0xfePouUQ
kXwh7hjlPhBnq6IMlU4g4llh78Avr4C4OGtY/zofEVO/C9q/XQXiqtY4/eQY
Ilb2ZL0begLETc+sj+wqiPh+KJDKeMdJLAW2Lg88EPHXX/9zyoJA4vi29YNa
hIir2xu/VSsBiUuy4uyPCUTaJruk7V0FJN5DJ//FaCASr/a2R9d6gSSYKhqp
4o1IAloOr+N5gSTa9ZarpRSR+CTKZvQPAklqR+gt92lE4lwiWyb3A0mOpiu7
TQcR1+trrw35A0kpYqSo0BcRfwfKm/y6CyS1V2n6Vk8R8ZPkv+TeBSBprdBe
/JpDxNrnmjUxpUDC4VeocXhEvL1byLx3D5AMfR91qwUi4vmRYEuXW0AyKT3q
2FaNiNbh8dosdkCyGOcb9VxGRAndUfkDPkAiKTb7bDdG8GPjahdHFpBoxwIX
iy8iKF34wsV6E0g22Wrh1nUIzimWr8YeApLd5yHOiTUEWrdV28Y/A2m/wPWU
BHOEve1I570zCCSX+LkHbxuQZUpWIdvIEpCOhfm9F6tAFgtPVNxVeoDk5vt3
1b0AWezR+ZT7exhI3odm9rAkILPpzYqoUhsgXVL+/c/0ADLu831ouHIWSOHi
3gpxVsiY2UZ5TTUMSFHck7s/myKC0kRNaMoYkBLmx/P8ZZGhs/WniV0Mf1mN
P2yKJxEuKn4lkrUQSHerTgYsf0F6EdFn3yzyAel+0fd71G6ks8SXcUTNCkgl
N0bmRyqRRrPt0+VUAyDVHfl6RzwcKXA+6iAYegJpYKVvJl4IawqcKihu+QCk
/6YPifdxYAuzEvSY53VAGhn+TFFaAdYOIV42RVMgTbT2ZqKvIGgYo+Br/wVI
K7c+EP8Vg8KnJxdEjzYAaSPe3oeWA8pSz/efPCUDZObQ7vS0JFA9Fvve2ZAZ
yNvd3v3WCwDNz/QvS7u5gSyOe5vmaQn65md/+U9mAVla2bq+GgcGVsc6HAjn
gCwv1jbBpgR4O87qvuR6IKtttVrkbgcj20se9XseANn4XfPPvl4w3Tl9Ln5v
EpDNG8n8yox6P5OX15XYAWSobDI7XwtmHdK8eeGyQKZno5u8d8HibAKzjU85
kHffwOqOJIOlEW9YVQtD3z6yfuxRNFguRZMy70QC2fH0KxOr0wB6deW+Ff1A
Pvz0jbjaH4DEGprovWwgH1/pXNnhDzAmkzlifgbIp4i9/b+XgWj0MeIArQfI
p+O/1LwLBWJ0nRrH3b9APvNhLPMxMxDfveLKmx0Hsr/4VPDNGCDxv+aMx20B
Och1wdGfC0j2tcelLnsAOaR43Xg/45wmxDXcJggA+fIcm5ihMJAaZGlpwgz+
oky5/okwzvUf7+tc5seAHBsp2PePwbvYkWIepwwgX3sr+Xwgn8HLL4PVNRqQ
bwooZrxQA7LL2p5dgXuAnOaseSGnFMiBSUVLL4WBnHnf4NBlHJDjM8KPNQ8D
OWfSjHCsmvF9Z0EPvziQ8/TJokQzIOdORibTGHw9CLFZVkBALlCXPJX7BcjF
Tfv62CgMvZadrZ4MPOU7nKt/tAP5dsOtq+lNQK7YdyK91Q7IicKJa1OFQK7O
8goq+gjk4PYzHzgigFw36u+QcAjIx77uNZ9hA3KDRoiRN8Mu0XGmb/E6kJv9
I0VsXRnnBMudvdsN5Na6+CWdn0Caz3I6V8743smS/JnPC0iv/UsMT18B8nub
21WzM0C60VMvePADkHtT8m71BADp4NtD2GA0kPsHiwMr/wFJ5GSn067DQB7x
qjUMZgFibEtgYeRjIP+oaBR2igWicYXkG+4aIE+sti2acTPynRB8/hYj3rmE
/spNYQBt53dheWlAXvo4nPYtC7BbHPvn7xoDeU1iPKBRBizfzM5q/x0FCmvJ
P3y0Glhwh1yyEzsGlG3zTEKnysBcISncUvQSULjNti1YMeZ4Pc3AqDN4oAh1
iFbuMAcTgx3vo/KGgaL8m2Bwcw/gv+nePhgRCxQNA0zQrxcMaq0Vy1JXgKJz
iTa/3xH0r5u3iFi+AAqBy+GZyAnQU2K5lnykBSh0zSD9nCBQ0TZoBekFoHh5
V+GKcrB++jnnzZCfQDl7r81toK3hT3vToShza6D49wyl71hALL4m56Sdx4By
yZx59cwuJDjvdp65OxMoidx2zbhVpJSt+JDv0RBQboLropsKUjXpFDJUXgJK
WkCgato+pN4jsV8xjgSUnC/Z15ZKkM5cw6L5r0GglJWOH3jhhPCnRV1Dwhj6
T4fXYqaikWHm5oju62igVAvz1Eo/QUbNnsWv6YVAqQ8zlL7CiUw4/KSaa/WB
0vSUvucpHpnKeN2qazsElJYfLhGjx5GZbo7iq8hkoHTbRvyk1CAL83PNI+QK
oPRE3BILHEOWhJCiD+sFQOmrKrIp5EOYxo3zP/fwAGVYuuvxdg8El76dzrSY
AcrY3pER0xQE48Uh0ceKgDJ+dVHQux4R7edkH4cwA+XvH8kLXSKIJHj1fsHc
A6AsKugUb5EQ6Uz6l7E3/wFlxYH4Re8sIjU9C7TVzwfKRsJBHtcsRBZo/Ari
D4DKXO8JKS2IfKT4ZxHKBSr73CX/5jlEzj/QaEH9AtQdKkkFizKI/L2M67jk
Z6DyOOf1qdggiszdnnthF4AqkFS1/VAgohwQvff+RwpQRZrazOJyESWaw7/l
cT1QJZaGztR2Ikq5y4e7iplAldX4c2/yH6L0bG8roHsCVfEY80cpJUSZY53p
XssAqmqqMJutPaJyYWe7R5iBqtmqZnQ5FFFlnjGVjDoDVXfNzPNxEaJqOSzN
8SUAFa9rlzXci6h4ZfPIfjpQjd1c3wkwIaqR+KH+29+Bap4RsEXWQlR9PZ+p
HjxQoSMOF+CIqGqnLR+oDwOVspXt9iAKUcVe63Y1M/iwNii/9bkcUVnJ5Ich
TEC19Whs2zaIKL8mpafTGfj2ZveumnAgSks9S8KPNKAe7B7X8tJHlHtvemu4
YoDqzLp2NPsoopzfIfxCcxaoR415bnYmIAqkfdfmWQLqCR/5po1qROH0W+gU
zAeqey5+UWcUkd+W3/5yxA2oXr101eM8iBzrVC38tg6o5zhdnJJNEdkyql7O
DQH1gm/Eq/lkRMq5K/c+6DVQLx12vfmRkV/rvtkpS0eghtOJbk93I+JcYnku
HwWosXLM289xIKJR1fX9ywx717iGv9iOIfi4/8Wz9wDUpGX0WKsRwWn0gyf+
LFDTu68cmAxFmFh33colF6BmvTiu2u6ELHWLZNV4U4F6txBbLTJi9Ke//oSJ
aQH14eWt3FOzyMwqtISn3B+o1TqXf4+4I8K2C89fqzD4rZM4Wo8oyPDX6kf9
godAreewTL4nj/BN748n+zD8v/lvk3D4C9L3jLn1KL0bqJ+uh0X270Uay+ON
n9Z8gbowFSrebY441Q+9I23bAdR//S5T5eINqwPyHlJqDPzrr80aEpcaPlHf
xKyoxQGNLXvtlM1TYJn46Jf0RQ5oQrtCnrSogMy/D64tRjigiRGcox6wgYLq
reOdv8eAJqVo6hA1AkrdDmZano5AU1xdWSfmgIYA8+6LVxjjtkHJRatX/KCv
LjQ69CIdaIR0J4nsP2DgydfuunkBaGaRxtMhnYC//wENPNAGGtnpX6pxDBB2
nM1yqMsF2v7tF74+Wwez2yP7fBx+Ac1h8dDTlAHGfPfO4OCgDtCcRwjRftVg
8cqA+nAjHmgnapY1dP0Ae+P6SanHD2j+nkGBJT+BWK/ShPDuQAsq+rop7QAk
g/XyFSkWoIVMWMXceAOkgv7p01gl0KK8xDICCoB8QcYzb2MVaLElEbK/hBh1
ho7Ls3IF2rXJiSKnKKAYrAQ7dHgALc27rtbyBFAGo37/G+8DWmapIvHJR6Aq
qz8NujkJtJypa28ViUA9/dcwceE80PK0FvbdegLUosZ2AmUaaA/OHB7ilAPq
SMKphKbrQCsue+MWcpPBO6GC9Y8e0Mr+aP+e2mJM7LU7XAaZgFahkx5w7CzQ
3LeivjdnAa367Ob6h69Ai9mYO0WpAFrdY4+rFDug5RZNXU1g6NfPvN9Z/Qpo
z5a6SxT5gNasZ5yurgU09K35qBwDb6tvnkx2DkMeeWnksgG0jqfbC3m4GWuf
ywbfe4DWPeuve+US0Bq3381/NgK0Xtzg8zkGrkr81ZB1Rr76/clwypnh789Z
XXdBoH2peNTW95bBm6nnjvFHQBueF9prYwI0D+mDq9+XgfbDIHTgZREDz53p
wWMMXBPnf5zQFQOa4OvnBP8fQJuutJ3MiwXqcM721KVCoM0uVJ8XZNz7Qr0d
8l+uAm3JUGYtxh2oHklFa6kMf6uBsVH/PgFVvvXOgNh9oG1W/eX2pgDl09RJ
UvAIWLEsOab9VwmUaD4CZL8CK64L6g+aUoDcVXKDkpULVrzPU3QMWYDsbS8h
wscOVoLLq9WFfkBm2fdkbUEWrKSCO1oT7YEk+82YfnwUrORq8Xs2ERAfPsA6
9GLBSmklp9+PMSergV9tXwNYaYecmXDgAZAKP3wnPxOsLEP5uGQ7wSzrKNdB
6ziwIr0MTk0xB9MjNHevystgRVsfkWJ7BCZi1OuF4VZgtSesQmsiAYwuzOwI
NUoBq+PhB+ye0UFvnNBrY1UIVpGRmSm01yCY2mi9be93sIoJeffC/QdwXS+v
dX1fB1YJ51nGYjmwrY/W/pt/FsAqxe2MUSu9YfrjJZTPRgWr+xTikFUnkhRX
NDlBZOBrYv+tRO9B+ipaPa4cDHtvNuVsPReQQVSL31ufs2DVvnQwKF4I4f9j
F7mStxOsPvxsaGt3QIQI0WHm3wz8I61pZ6wHkXnMsdq2/H6w+tHQnn56DVk8
/5Uv558FVhPPNxsSpJDlaAQ10E0QrGaLTvO/PYrg5n/PS4Rygc4cb1FtM4pI
ufjNf5WGQGeP8P/mzYrI4taNb7TUgb79YhHnNSVEvv6Bm3PkDdD5vQScO9wR
xbPBejYfAV34hFXU71hE6ZoW265pCXRx59AyLkZ905PEuZCfAF3e5ufWrklE
/S6wbukuDnRlspSaDxei4cvk/Fq8gK5utndvohaiXRmPqPIdArq2QUxIqS2i
tT5J9F9bBDpO80V+51lkxTm7OTcyC3RDxb+dUzeQFSXrz/XEZ0A3kVJe4n6C
rEKyOuMNNoFuIeQiq/UBWZWMeuVb2gCdyH2TvnsOWX1y2yJP+AKdyvbG74wg
sloVVHcRWgU6fX016zoe0cXG5n9ImwN996Juc9lBRMd1D4h0lALdfvrk1Lsg
RKd0vNENqgX6gR9ZwtMZiL73o9jfiH1Ad/yvG9tZgxjyUe2VcKAf/szmqT2A
6E6T7+hu/wH9eJdJsu0qoh9YtpIWsgP6yZazdWclEd2G5cgVQWGge9bnf08y
R3QT7veadbZA96ke4C4/gugKYoMZnweB7vuYx7DrMqKzaxj88poBekAh+eif
e8hqlMYTHB4F9OB7wXE8CFnVnhcVYTkI9NCMsqc6w8gqofZ8x5sDQL9yY3Rw
DzOyclBoOtxxEujRAYoH69uQldT0up3nT6DHObp90LmJaF+1lmpju4CeaF6w
+64jot2eev9rrQjoN+XG2njkEM3ebN2KZwPoaezK5LBxRGPWMHFb3wJ6xsSp
+ukniFralpbRmQX0e09/Vr0DRFk4bnYpRQPo+emqOAtORLkZ8S9uXQ/ohSEe
paXvEUW1oCyjksHHY9J4fuJxRLba5XI2uQ/o9T2TybuuIKLd/Jemi4z8N9Vo
cr+gI3gz2fR15zjQW3K84zT5EBi/El2x2Qn0rpNT4TtykaXS7zjcgT1A/2/x
j087QiYGcywBTox8b4jO0elMSMsz/35Z1y+wZlrXb37ehtTDQ9jSnBTBmm34
PKZ6E6ncOHJ3Pl0KrLmLFoy2ySG5OzyLNKl5sJYyWVJsAcTCy46+Ud3B2sxl
ZYtyBRRHRMw5j/aDNQamIZV0UBnbzXMe6wNrslLIkhIfqH9nxZfULoO1zdTa
NGsu6L4Xr2ERtQdr57CNwSYEhiWpPZPZu8D66AlLB/04IPDtfdppeQGsT9Au
f7hvD8Z+HO4vimbB2otnqy1iGMwUmNqr9YPB+mIuczWRifG+ZTvEVI2AdVj/
218UZ4DmOj/Ho5/BOpI/TcyqEojuJ2Urv3uCdUKUSoidJ5Du5CxFPJED66QX
M4/2MuZI3EeF7mtcYJ2yUPPloBSQ0Ve2o8P/q7i647F8v7CGoigRvpWVJCTZ
IePY3r0HoZKZyCYjoiJUioiySiWjJISiO0nRklUh2SQzlO33/P56Pud93ue+
zznXdc65jj7gbjkTDI98AbNPLa0dXvcAl5m5/fRRTCeRvLp2qhwE3N2vP7Ic
MJ1YZ94Hah6AyxW6/8WpGyx0Vc3jOGzAFeC81rrpgcX9LTwX78wCrihSV+NU
ElgKVJeKCGUCruT5WsfT42Dpsad4+Wst4KqUk+oC7oDVzpvugtFnAffKye7f
mSWwcvEN1y6SB9ybjH0KYWywKkzNuldFBlx926R1BNZXRmf5lcQuAu7T1orY
85sAt9f7C/+ZO4Brsop8Hu0IOPbyrDJkAa7tHGE0thpw5y7Z1komAK69UlTy
yn+Au8fb5R6PA1zXny7yNV/sXhezF0fVAde3/0F40ifsu7v0I1M/ADfk6FV0
UwFw/U/ehDwVBdzvdN2eW5HYM97mQxcP4Cba1glndGK2yufB4ycBN7Plg+kd
beyc5AGJXZ8BN2d5w+8edm9LrX1d5TbALUXY38sdAVx1Be/iYx7A81Tsaysw
A1x2UG5Jz2fAr5+a2vg4A8OVf4fL9xnA8ytV6hTPAY7moyLAsQK84IkotzI6
4KSqqq97lAF+221iWgXWp/r/3XnneAzwoq2i76s2gFXOgcdFyAXwOwW7ltAx
rC+dLsEJ7AW8lEXugdeVYCX42b9G5D3gZcO97d+KgmX5sXyloLOAly/Xu9rg
BZa2OnPxdwMArzS1Dn3E9MT86V/ncKaA13BIlm05CxYyx83/Qj7gD906yvj6
DczzmGLbJqYBf7hF4XyHOpiriJmd8MP8NzOvHOzB9uI9l5VfGEYD3ursefEB
ANMbMe5/N0sCnviMZDWcBqZrutcctMP8YSn8zJsgg3GDKfPmvk2AdxZY77n0
DAwNRBNzhFMBf9LsYxaPMOg37rTO0NYAvGdY8pd1p+CwTfbN7+JNgA+YUNTY
JAM6nM/DYoZHAR/dRPonHgNqK6wpn3MPAR9X0/fuXRKo+rNsZh84Af7q0zNp
ZzLhwOdXg3xXCwCfknTPoKMM9kVq3T2qh533gL10PnMARA+LXF7SAMDXdeQL
K5ggaXMH/K27yoBv+AB938lIdtDW3zaNH/CfXrSVxlojeXnntvVpWPxtGWu5
o15I+eap3KrKj4AfPGadWZSJNFNkWhONa4DAO8B3QGcJgeSD35mZrUDgb01f
GeFDUL/Jq/diCRAE6zQab4kgY6+4+I5ra4Ag+uCo77ISMnlquveX5kEg7EiZ
NX+kjUzJCk3XhruAIBkTJ37UBJn2x12iXokGwl63sspX1tg+qPZ6NiAICIo2
xHgfR2Qep9yrFLQVCAfwvfZ7vJDFlu005mldIGgpb1lzIQZZrpczCjD2AoKu
xN1m7SRkGSg4pPHPBggGgro5Q9j86Xc29rPWBoLZuJMVrgxZFU4/DsJ9AYJV
1+KOhRqE458JtoyWBwLxc8Lv/I8Id3TRV91iExCoSL7K9hvCPZ6avxXlBgRm
0Yurgv0IN1/zs+V7IBC42fRj1ZMIb2DjVaSXAgTba8Pqp5cQPvi+37Pb2HnH
Is+u382H8E+SD/GrxQPB0VektUkE4Xt3XmobjwWC64mHD6KkEEFgb0OMlDgQ
TjGNzmgqIcLB/IGQya9A8DJrxQ9oIwLxjrX78igQ/LTcJZJNEOEEj57H2w4g
BMnzjFuSEcGnWvO6pxAQQsWSX85ZI0JI25U974uBELFR+dpDR0Q4a6541tYQ
CFH/ak7YeCFC8MaL0eyNQIjR7x7J3IIIHv3D2s/zgRB/btW7rwARrH8/e7zh
HhAS3krOK+ARwVBaT1IM8+eGgH7EqSFE2Hl+qvnlHyCk0o5sfHIe4Sfk0t1q
vwMhPfnMlb+yCP+CT1tj6BkQsjtuiukhhD93eHwXYRYI92XK0sPtEd7wk3Lj
jQUg5Dm1yr1eQriZz/G2jhiej/KmC/jSEO4uvVXwtywQiieFNUg6CIc/Nfeu
IAIIz7RUK6+1IqsRLcFi7x1AeB5MMW7zQVaRtVYm3zG8Xr70qN8lhKy2a82U
bcDOe4fL+5pDRJayOtLhMk+A8OFKvf3wCLLI5Her1IsEQmPz0OCBGGQhalhg
My4ChO/2cjNlr5HZ+CkVxfLfQBjxydxWr4dMuLaKn/xeAGH8WVWq4DdknPPO
zuO/YSD8WeqUoQcg+D17zDRMEwiL0TtUOp4gw7aXjTnRlkAUuJVIGFdAOq4t
46SjXUAU6n7SrF6HtCtiQ3CLCIiiexttAh2R1jrjkGWxbCBKFgm68WQitajs
gqGBcCCq1EZfFBFDcvEKJ7vePwYidSwE6awH4V+mGw/u+gFElnqaZegd2Om9
2uWgPg9E68DyT68AZBae12WzXwPRYc3sD3wIKHivenge0geir9jpBds/oBEz
Fjhy6AsQA49cOZedAFq0HPE1EWJADMkq5BtUgUPbP5vUkhhAPK80In76JOjF
hCgYPDAB4g0jR81zPQBxud6so3eBmOp1ZYuYPBhTiG+ViohATM9+NpR3Eky2
uLqhv++BeH/95rSmGTA9e9CY2hcLxDwtLT8XXTBT8QkMkT4OxEfOR0mLZ8Hs
u91ORa0CIJa9e7pGjg8spFy+1HL/ALFyvrO9nAQW5fu1+dP+AfHl/g0lRGzP
IXS+HKZi+Xx72cbFfxemWx1sq+5oAvF99Xljfmx+dA8WT86GAPHzxKOd6TmY
jqn4sK9bFYjf6Gs+1qkAXhcRbxufA2Jn1P4HNr6Azyi2joz3BGJ3CStivBzw
S17RX0QXgNg/EG4TuQQEete/eJdlIP4Se6gpbozxuu/1K3wtEMcsmwXzLwLh
l8smnf5QIE4FLQ0ZNQBRkf4n2+goEGfz5FHLViAeTyxV2E4F4nwHNc2VCcTr
4lkXusqBuCIQ7LuUisX5WTrQuRdIaw1ySAlYXB0FVTmi9UDa4Plp315ZIM7c
2z9x5TaQNmXO8VS4AIn3sZmWejqQtnzZ3U4qwJ61AqdsLwJJZC3hac8kkLZ2
VWjih4AkruF/OUALSHxLj+u+1wJpl2Omy6ZgIC5IRtPYekCSvlEPGS+B2GfK
X9wjD6Q9ddM7NdYDsdZbI4tnO5D2zUlMv7XCcH2kuV8+EEjKihYfj1wG4um1
7sX77wBJ1cbr/kQTEHWCTqp+PAMkzbi0iPNiQFiQGJ27xAaSzotam/+OAOHp
SscnIAJJf2xcoyALCM4HzT0tNwHJWPo/QRgAgtCrI4F5XCCZU40HW5UA/7TB
42U6Fh/unDtyOw14yvGBLWoPgUQqvpG6XILplWwD89s+QKL1vfS9Ng84r7sr
s1FtQGJv/0WSx/a6v9HlRwZfAsk+0ICH/BYsx3x0q8ew8xxynb/3CYClfdV0
Q7IUkJy/JzwNpIJFvV9gw9F5IJ0+3O+c2Q7mccg5pXcYSBE8cR8mx8HkXfzz
L8LKQDqvVnr/ggaY8LcT/Z/nAinG4WfEjiAwNl+yv1WzAUgJbzQ0TNaA0VHZ
XYktmkDKvtSemrgddG5L5BdXcoB0z+eLSOsm0P77+Hw0bz+QHh55e0WcB7QI
LG+X0xJAenKgJDJtDNT6PYsom7YCCX254n6nDvbW2G0/thoLpO4dJgbFQUhg
WLKx0voNkPrX6jyb8USi1WdSN1RcAdLQ74Pq2o5Ikjf1Y+S/XUCaqJKQr6Sh
va8iYkydR4C0euzv1holpL42QOZZfxqQpXIf9nz5gYx8vgTX3+0Gsuy1LFuR
FgSRMS9PGH8HsnxwchurARlbjhxp7ToDZBViVMP3MmRSVxx5I+EvkNW1gs13
FSDT8OcO7aPYedpSXi/t7iIzTXzWqfFJIBtM2j3tSUDmVwnfSAI9QDb+zlTZ
cxFZaLkekb61HsjmNfhcp1Bk0XbsOKVAGMikpEO3f7khKz6zr4LMk0CmhamI
7z+GrG4O0F5nFQKZ5Sx3zYONcHvqg1Z0KEC209l2YcoE4fc1c/K+rAD5+G4+
Hg0dhM96Vt8bLAtkJ/6VYH8VRBCx8zw3bw5k1z8zM8/kECH8gf4VtVNAPtXx
23N+FyIMnHmorxwPZK/anl+HhRHRrPLR7zc3gOxX+O1EGB8iptOa69pjgRyU
/OlH9QoiTiiorrNmAjk0/A2XZwaR9BR8665g+Yhwfd5kMoJIZw1Hc3WygHye
Vkw8341Iz61jm3+rAjlGL7eurg2RplwG3obFATl+T6Yx30dEljkChbrngZwg
cOM5vhaRreSvUB+5AzlxNl4rvhKRXav9CnccAHJKV+TjT0WIHLmDut3DGci3
3p5RErqPyEkHtcb3RAA5a/2c9aAKImdezq4Zwd7nmAReev4Mke/QC30E7gM5
N/xvxTVA5NshqlvHc4FcUOX/y/kdIl/ZcMp53h/IRQuzO/SpiBzwd9vXYRcg
l+r44bZ9R2QOWT/OFwfkCv/poCEHRD4o6jcrNgvkqqc+uS+weFeYj+5PYPi8
mpz6dt0Hkd6IWwTUIyDXqXjzuSwiUtTJ1ZnqGiA3uE/qGJxHJN1jazUGM4D8
6eFpVxEBRBziax5owfxpGhxPGU5CxPhgdn2DA5C/ynm8rZZARMX3NV6V34D8
M/PUPrcDmB4KeM6V2Avkvs7fHMMyhG/apOyfQgPy8M6T0dsNEZ4yZbRmvyOQ
J2+4Dr4kI5yWhcddm2wgzzQNiyW1Iavbq3PH004AeV7IxeLkUWS5fHesAU8G
ypo4p/uimL7M4+bTcMJA4X3X3zoyh8z/vlGW1FQCyqYNjrzoHDLXb/ZSnnkB
FOFzDk7u15FpWTY3ykkCKHsCj8q9KkHgPOfoePEXUPaVdDFT9JGRQFnpDKQD
Zf8fu/On3iADE8vdsZX3gaLpcaRfvA3pJr4eHX9jBBTzE9y7Hv+QWld6rvGH
TUBxodBld+q9nPux31fgHB9Q3OO/0CZqjLrbG6Oih1hAOd1APfeGAOt/klx+
yqwDSpA5ucfLFnaJfOsfNGsHyqXDhKy6s6CyPn6g4sYWoOTvM5f2eQWGuenZ
ReJ+QHkskTAxuwBwsOG8788ooDzd1onOaILxxgs1w0czgFK55Hc8PBdM8vrP
+YzFA6V6CusdvWAaIL0/x+s7UGqGBNZelAAz/befxR9idsOXu3fjE8D8+e03
stRnQPlUN+G3FdvHfF2bUgr/AqXpxWGzxPVgubfX5XDpVaC0328aSA0Cq+D9
8viYCaB03ZYqkygG3K4cqbEHo0DpvXbyYuYo4J5JUVe3fgbKSOjaffexvbHj
jFfylTVAGfcmzSmmYbp6623VvASg/HFOfVfQAoTBbQn+PSeB8vfIQKrqFmz+
2n3UW98ClAWamttTbJ61tpwmj2L5WLEI09OOBJIpR6cq0QeoayT7L9h2YX25
/mZqxy2g8oqosrr/w/qKiJPJphtA3SjYZri7FMhPKulKnbZA5ecLlT9BB/LC
RO/ZTUtA3bxOdksOFod+FunSYgtQBZbf/h3E8hZQkd5HVgbqljmPnwqKQHm4
v8xofgWoQtMib93qgNI8zPqJ6U2q8FjF43wHzO8+iYjoIaBuHz6aMrr6/3vq
JsTCgCrWxxuhchv7X2msXd8HoP73I9/VSwd7+kU+twoA6s5vNOqTVuxpShW6
aARUiaZ/OtNYXP/JXBJZ9xKoUh/Td2ttxb7f/LzCG/u/zDtT/oACoPLxeiQd
qwWqbM3wVDkOKDNSh1qoIUCVq7ryfX4QKI3swP2rcUCVL9esOYzxJKfSm3nL
FKgKxe15YTJA8ab/LrC+CFSlwojr1VVA0VZKkbiYB1TlXPkQHhsgT5MF/0iH
AlXlzocTxv+wPvT+i8Gr70BVTfchRCUBmV1i/jwEi0f95n8ab9SAtLyjyFTq
JFA1r1dLbPgEpNtCaq++koGqfdlxvZU7kDQKa6om/wBVJ4Z/NJYP0yubVJye
4YGqH8aqEjQBwmeX6l/1WB4MAxfvkX8CAZ/tePeaB1DBJ/tyQijgX276XjMv
BFQzlzF7kTLAJU79l7V5DqgWDokWLAZYzTxdaEzG8mJlp6uSPAlWFPUPQ4Hv
gEqkn1/dqQQWf9bMX/BVByrTQCJLJgNMp2Odv3li97EPvFOL3QKmSu28lUIY
P7hSvjXT4WBiF3A7VHECqEdWGwbqjgGUMn8s2r0C6omaM/tPyYLeSYU/nzfX
A9XXsrXs2X2Qjz8m/cId44+/zjmr3WIgm94dMsErBtRAReXvsdEgyZS9adfo
DtSQTVFLdq6w6dvQza/FJUCN/Khusk4JCSdQXiXjDIF6nX7lI/kR0nS+slkx
EuNJkqmefbkU0qbKNmkNY3xM1hiY3H0V6Wj+oqRU5wA1TdRAeMYLHR43Iugt
Yfdlf/3NTVNHxpd+/iDkU4B6913yyLo7yMTJQlwjFsPzXoVJiIcIMtWPLaXq
6AH1YVpqhtEMMvvR49oqPg3UJ3aWfQNlyHLQbjhZbSNQn5Km/SnyyOoWntax
fBCopYaZG8pTsP3uRnbfwUmgVkj/VYwLQviUzP7emwZAfS6UXTkzjAhagnnZ
BUVArVpDItpj++0HHSHfjRVARb05p9X0sPlxcF7ffxyoNc1UnrQ8RDr5rMUx
pxmota8Xr6/fhUhD3tsk9mH8qCt5sMcjHpHt9J+Lju4G6rt79JK2JUR+vxzU
6D8L1IYbKxZwClE0Uq53bxkD6oeLD78+7ESUxMmFb4KyQP0UyHITISLK6BTt
i/cAUBtdeRZCqxBVGv5ZZGH13BQ5Ofj4L6JawtuWM9JAbUnvbupTRdSTb+ka
EyNAbStvfCl2ElEv1ae7vMDq+lszysflIGqOwXhMzg+gto8XpYR2IWrlrvfv
aE+A+oM/K6pIHFHfH1nd9bIMqD/lEk73URH169zNeLdCoPYYRdiKxSLqz9HJ
g8EiQO2z8bLC1SJqn9aDmqM2QB3wP6YZuoyoPY35o7pdQB1KoMoUaSNqR5XW
nqeZQP2VDwJ9XojauPhO5zfGl991B+fF8hD11RXtKK1DQB3rkR7A9SFqYWB6
8VWsf0wsbf0SJoGoSS9czF5qAPWP2GpVERtRAx0sM/ZgeM6oTTzsS0BUlpd+
nUcCUP8SfyaL1SOqynh8/VkzoM65fI7Er0XUdYOvX6BwoC5EvvQM00eU3LcO
zTy8QF1Kf2xTFIAo0PtRNy4GqCvlmRZ9jxG5Uc9R710/0NaOh0vjZRGpdXvj
E+thoPHyn94cZotI+O8C6YVvgbZRzv5f0Q1ELLdVk4jwAtpmG8NGcT5ECDnc
KpMdCzRBf5UXeEwvNo7SjqTUAW1rglRuWCjCS69LddhVDDSRNysRfRPI6p78
+QShH0AT7R73EFdAlj9SOEsNMUATX+yyxjsgy626+o/ajYAmoVatVtSGzO0n
2eZ2Z4Emlx7WG/YCGZcVRzsYeANNy2/ZTDwGaazdXJGz4Ak0zp6ljYTdoDpm
b1Xlvgo0651Npq2aoL7cs7dzUwfQjmzLjThqAVqbLIK1A7YBzX6VOe97EnS3
P3eTH20DmnN74e9bJQDe1NzN5fuA5vrlvMLeOjB2MKneenoJaCff2Tg+/gYm
FF38OVFhoHmWbfjxehnMJIi0F2+1gBZw7ejnUQuwDJ1Yx5ytAFpQjLZAABes
LPueNF4vB1pwuACO5yTgBJU2RgXsBdrZU+U1268C/sKvUxcNo4AWceLKSsYd
IOiu//7+lBDQIm2cDiuUAGGg7JWPy26gXbTaVqL/DUj7NTa+88TijTEcmqzD
9o7X+a0N8zSgxWpVH6AuYTr+v21GJ18CLV45ya1jC6brGJt8aZlAu7Ln5H2n
3UBx0K078IcAtISd0DuhCZQf+RsunMHwvL5NXPqMBTZ3Xj+8Z4oH2o2V1zcv
Y3Pi2gapBtJ7oKXMpraKY33ppdHFtN9uQEsd9dqWfQXjeVDhg0FtoN3qsyDv
z8Jwvx/2JVAXaOntErGlT4GmVv0tVu0f0DIb/7w1wnhBKU+N2IThk/22fl39
N6C5xaXyB88A7W51JjBGgBau+oiNzQHavVL/0B9Y3hOynzhIPwbagwJChesW
7NzvoQUGf4H28O7u2T9YXu43jxc6WQAtP3VOPVQTe17+LbyOAbTChE+nN2C/
F/AeKXEuANrj6Jz8BC7QcnXVOIuHgPbkbDAmaYGWpei4Vw7j51N/mlxOKNAS
26YH4vSAVnpq33GVq0CLMh3mqVIE2jOH5fTyOxjuvhTdHVZAq7BubjcpARrL
zUhxnRTQnlPzxD5g8ekoNUf4YvhVWUYw2Fh8YtUH1q1LA9pLQ/bVbqxPTSl5
WeRfAtorLeUPJ5eB+jawVsNJAWivldfxzWJzM/Ux1Wwb5u8b2e/m4VhfdOnQ
i/l7BWhvdzyO5NfE5viGe6dMwoFWL3ShOtECKJMhNj4qhkD7sKJ+6AG21/zZ
mG/8Sg5on2b5/NTOAtnl6BjO/T7QGn93FT1PAFKrqV3aTmmgtXyPU/xcAsRb
mv+pN2H5alu492pPAsa33QfHk74C7fsuxA10B4L8/N3GiVag/bCbjZaWxea5
4WL+mnygDfQe7fe8ChbbuVHjH7D6HF4XHFJzEsz3fCgd9PQB2ojcDRExCzA7
wDfleQKLf9y5wbhqCUwOjDm89rwLtL+/NTMFT8Lh3oxdyXlYXucFKNrHLUC3
sFrIwAfDffGA28fS3XDIe2v3h4+PgLZ6OmPJ9huo936sLpbvAfrGGX7rAnPY
w3+xZi7WHej/LXVtJ8igPdTAUclCFaDvkpzLz1hCCmK+xQvXvYEuaSRi8ucr
Um6rpBR/Kgf67nNW3mlXkIbMse0tyzZAV+It/vRrEenj711aY2IEdGX5j84G
bcjw/I4uxWQnoKtYDi1fK0ZgU6bodUgR6Oqxksq6rsjkbFLhicRMoB/eEn0p
pg1ZxPBcMEs4BnSDg3dkOouRZUhe3QP3HUA3or4oV72MrFwH9nKVgoBuen1q
8JsZwqvMdX7qnga6eYnAWWVpRNhI1piZ/gh0y9Z9ouELiPBt//uoHeuAThS3
Ndv3BJEcLvd/WP8E6GSdgI4QbN7uyuhm97oBnWp9zeezKyJ/oKk9q9QCOj24
YNMeU0Tx86rb+/wH0Jm36rIDpRCVf+Dv+69CQGe/6NFpWMDmyY6SMvcioHN/
LDZKtSLqrSoDja/iQLeTUV2pi0e0XTw3jq8aAP2opNqgNyAapXe6SEME6Md3
qn/aNYNoETHTJ2QngH5CXKO0LhfRCgayyXkvge60XTPd2xbRWsbEVp0IQHfZ
pnVBQgjR5pLCBhv2A91ti/apulpEF28SNnuA2e6bDzG9gxBdPX3vRxXsfA8+
HX2JA4huNS67qdsR6Kd5dffU9SK6TXVsyNN9QPdeq7fZOxnRXflWXNusge6z
qjctgUd0r3q9oFt9QPdbOtxet4Kw546FzVFAD5jXr/EuxuzMlF81+UAP+muQ
J+GM6KeLPz9u9AR68LThtbc7Ed1ZazmZog700EmjM96fEJ2rdHbu6jWgnx2D
4xKRiG5+vUmpwhboESPGVm+1EV3FJ3nH91igRw6ZqHqPILrwp0s5Tth55/tN
/5PIQLQ/BbH5pHNAv9hjuvqWjmifRJI63l8EekyX2ZDPBkS7txmpKz4HemyH
+WeJSkQLzDDSarICevw3i7K3pxHNvNV2YmMZ0K+0Wmb4yCHa1hfByRW6QE9o
sroo8Q1RW48J8szWAT3pA57lA4jKFCkRfkICenI9wUBiBlEFjeddP8gA/WYd
Ue5tLqKcb9pVxKYC/TYizUgKIbJxU4gLlQH0jCpyx9taREr6cnj4Fw7oWZWU
1z5BiNhtc6sVvwL0nBLa9bfdiHD8uUGdOcavglyWms8TZCXcXpfzE6uHR/fY
OySdkeVBy+fP9W4BvegOh+fdTmRh/q6001kD6CW3uY2Skcjs+Mg+NvUN0F8k
2Hq+oyOwU7tg/zsR6NWX7di+G5Bhth/pngUX6CjW3lCyEulHRNQfifsF9Nrz
xwR9ZZGOQvaLXU83AP1D0IkCyT9I5Zjgnv6fUkDvPHbyl28ibDZy7FPZKAD0
LoZ3sMVOEPv02FQhzh7o3RZBm/+7A9IL8kGzhVi8/coXlKuKQVGqv/eq9mmg
/57L9NrYCFpX6gZkG7D7xn7f52nnwqFaHJ8mXRboE10F1wq6QXcm9RUvyQvo
07UVT2kTYGh6defEHwzPxYTmv7ex/cTiUN0ZhWygL0e1R3smg5n52rKn+m1A
Xw3o+c9YEsyNVBurbO4CY53tuO6gMljKvRm1H98DDF7KTEN5CVhtfeZnbdUA
jI0mi0fi9MFqdjeFnuIFjM2KfGGqBMA/isjKufwEGIISW7esbQJC5KbX91x5
gLF1q2hGqw0QKdqFm6b+AEN4VhYFn8T6fSEfX5g+MLYPK9KIf4B8JWXMsXgD
MMQ6DvZKnwEKON3cZDkKjJ2vDNbVYrrQYoV31ZMfGBIlpkkp2DxKqjBBbGw0
Sz3A73VLAWpX4u3QegQMmTRqmT429+SCKyXSvwJD9jLHcgs2Z5ztDprXWQND
LsLua48K0HKUIp7ceAcMeV9H16dl2BxpVsBFOQJDwfnk/EVDoItYpW7yUACG
krV3LBfjhVmYSaG9GjCUiUG79hOxOne8sX18ARgqRmfzl1uAnjq97uzxh8BQ
Vb+g34jVYbXURv8CIjDU98Z9vNMP9B+de+KeCAJD87/r9v6ngD4vN/Bx6g0w
tDffnLCcxvI0+WtV4jgwDq1kRuwMxvzW7bjauQ0YulP3hcbWAuPgQiDH7TUw
DvcXZL+MxX5XubzZORIYBl+fql/H/mfQzBOQKgQMo4aK1443MXugwfPQeWAY
VyHmIRns/07zF/wZwDAtqhvgz8X8ZBSHSw4Bw/zuR/9OVey+ItUwERowLJNb
NjwqB4ZQWO3YzUBg4C61p5zD5s78y6/adpPAIIT2KDCwuu4K7pfkagKDdHqo
Qp6MxVsSOhGwAxgUh3HcHMarNF8LJ3sMfxprpv09xnPv6n8WLh7AYFgtuqcP
YvnMYjeIuwKDpb9mycsDy/duvXK/ZWBYy26VEsX0zl0V2dp57P0RIxv+Jx+B
dtQ68VpoCTDsbHNmyRi+YmkPj2zG+Hc8Re/DRWxPCSjQG3HA+Hui5EL5Howf
0g+s/45YAMPpS+Pdl8eAErOz2IOL4XdSwDl4bi2QVhYD2x7IAeOU4hPnJDqQ
DgSz5uWxPHpaLNFV7wKRcXfDEeM4YPicu67oZgb46O570wf3AyP4b9XX9miw
SBH2vq9mDoyw7XyvA76B+aUWg4CXGN/C1RiPRRTALIDVldGK4R3l/usioQFM
DOoV3I9IACOuR1SzSgAOSxkFnzmuC4zb709dy7wOEsraJ/TTDwAjY/hZ2OE+
2Pb1mIjstxhgZG9Y6/pN02h5DHdXTTEZGPfgJgi1ok2Xy2P/Je4ERmHp6/HI
/9B+2l73QZXfwHjcvKVdyg2pHhpb6eu8Cownk9ZvKiuR+muSFjXjHDDKlCZu
Tx9Bh97ru9bl/ANGddYugmMGgjqxaOIJrH5RlfMhnglkPD1Xu0lOFBg17U9k
0wGZSoqlDqlivHwrajHf2oPMj5aO35nvA8bnWJ9cSzmES8/DpfoUAOPLg6rE
Pj+Evx0j0ZeK5a/5DV94+BtESNoffWJvLTC+rmawy50R6dTDGYMwA2C0S/wy
YT5DZOLyZf8N2HmdepoHpvgQZS+f8Im3WP/p9mvgVXyIqHb3Kmip48Do9Vg0
lmhC1DLO4HACxpd+F+WwrUuItpm/NH1GHBiDx+wq1u1FtCP3no1cjQDGsPWV
mb9kRMsVD+435mJSno5UfwUh2iQhzr32EzBGCVOnOrMRXfNgiOSeM8CYNGT0
18wg+qManzUnUoHx59AFmTIpRB+g/RBldgBjRrXM9qElYojT/mmdqQHGX8Wh
m7e9EMOsNJ/XA+P33J7/Wq6mIYaHN4/+6QfAWJDAC0XWIsa1M1LvHvMCY0k0
hOg/hhhFtbSCX6XAWNlSEOMmhhjv8fwpd1uBybPxR60tIEbP2p8appnAXLtm
Kw/lJGJMDd9Q8bcA5roF0DdJRIzlvzuWcA+AyTvtHaT1AjF5910iJI4Cc+Po
nRKFQcTcGHxAS4IETP6B5klM3zDXj4bLUHcBc/NPXuWtutj3ZxXsFSqAKfhN
23WtA3a+6tpg0QPA3PrF5e5sPGJ0rxeH2n3A3NZw8+dwGWLUL2eFVrOAKfK6
YVfHT8R4vHuja1MDMEVfLHI+8yHGVd++b27HgSleppxYo44YJ5cWRXtigLnj
sd3nUlvEMK41DNS6AcxduVc3515ADJGm+ofKrsCUzEaWtx4heo969xP/UmBK
p01FXfmG6A8nxnKlY4G5O0n2ZeRaRPcUO6vQj+Vjz2XGov9+RD9QAqH9GcDc
F17me+QsomVey1H1ZgJTMWjoMRnTe7Q/CtLP44C53+e/38ZfEI1n8y13vUZg
HnQMOaEgh6iUssZdktuBqWZXkLmLjCi9fe+Jwq+BqcH+0bElEFGkvIVttbD4
DmGaY6YBkc7GS9cmXgSmkQqvyavTCDdMoIYFdADTeJ/22ZKbyGpq2jr6jycw
TWVcKh/UIMtZ7i6LdhwwLYUb1K9sR+Yj+ERPNRlgkv9dlbWpRMaJ7055bf8H
TPtXO9bMbECqxgMVtMt5wDzWf+Vm0Rzar0w2MhwBYJ7gW3/Q4zfa+370RKnP
NDBdyBO2Q41IdEw3VFsYy+/pzjfPOtJAtPThCaEazN+IOR+P1yqg17WLfk5S
CJhRu4bXR8iAgZ8QuVzkNjAvGNndMhABWLPN14rtBcxLF63elc2Byblv21sV
6oF5fbv0nrwasDRTi9ojzgBm0qGkShds/jul1C8m2QAz+cgmmtwDwEUYLcd3
tAAzLXv2bEY8ELK2br0/hcV79+D779fZQDmncN80ZQ6Y9xjGXhQrbD/kp34b
DwLmg4BnGwUOAzVjRjAG2xeY+VV3NC/KAO1kfkH5AIZfYY/4e1NhbI/Up2dt
XABm0frLDjy8QJdtoG53ogCzhBB09cwI0Ov8Zd8/x/hZ5jkur92Jzavj67b/
xfwrv37ixfRnYDCHj97weAHMytLvjCKsThP/RrgZTALzxXfyiAc2Rz4G6TkY
awCzeqn2nNJ9YK45MtMW5gzMVzJ64kOpGE+uPVqKxOrptenjRznxwORuXt8i
4QPMNy57zY+fBWbwc43URilgvo1N65TC8piSIvm6mQDM+kdCPh0ngPnoBjla
YwCY779c5L/JBubLwqV+SQlgfpxZzGJZAbOhY4uOER6Yjf95HxLW+//zP/YF
MWA2HR78+Bmrw88OJ/ac4ACz5aitYzzGm3flv0o1Mb/aIr8s4oSxOCRs5jSl
gfntvuX1DeuB+fDqjtbPfcBsr69SqMF4dU1U/6cyxpfOMfWX4SPA9Cm5HPzD
FJg/hXLZ+p0YD/0u3viF1XOPpuTo/GdgytnTv/ntBGYfJzGqDMvXTGiDvaMc
MAdC+Hf6Yvmq7jw9k4H1m6GMs09Usb4WFefRcaEHmL+ezU+JemK6ovW4bxQ/
MH9/8Vdd0AT6Ss1qjNNjYI6NTHp1LWA62xkcObrAnFzvXvQaAd2x6UboFxNg
/pEcnMzFdKqQRP+xEQzvmUMOqpeJQCs7cs5o6jsw505yi9jfgDojuqik/wuY
C1HNk4czgBr3xqeX3xyYS+kUVRlHoEo1HjOIdAMWT6P541+TQPbsfHTmdSWw
+LXVH4fxAf5Uwtl/nBvA2kwpnDj+CXDcq6K+gWxgCbopHrRIAisD65GTaZeA
te229GMhGTD/EzPAyZkH1s61Ao/u6oDx9r1+j079BJbSx8HCeldQWhP549K/
amApDx0fe6QCcpF/z9MLsfMO8vw4cH0GJBc5xFbz88DS0GgutI0wWt13ymPK
zA9Yh1NRwcRNJGtztEjtpD+wDJ4eHm2xR/v6d/cG7Z0FltGHZ8oVcuiAq3Nw
y5wtsExXCwsii5DmgYNGd/dvAxbRKa1A9B0y7PwleXlPC7DI4aK/F64geG6T
aqhUDyzqzWv7fzKRybqBC3yuTcBivo/Oz+1GZhfDTq/f8h5Ydmp++YfnEM5q
Y+/TrpfAOoqf+C1TjfCux/jWXuwB1nFH9/285xHh3EOcbUwQsJxSjud9FkKk
9FYKz57TwPJYJuc5KCJqpU6XoU47sE7/KdJLf4dosk+n/jO4Cizv4W0N350R
LXpvt40qA1j+TS2/qTmIbho3/ca7FFiB77RD4k0R/RbNbrf9ZWCdqbq5+S22
P48X6XSxsPvCco8oG8kgRvSwpNPKV2CFp794EfwSMT6mVa0dvQ2sc4lSxDJ7
xNyStsH45U5gRcWEd04tISa+9UJS8glgXQjr8ThwCzEjDX6p7K4FVrSvybKb
HmKWvFnf90EPWJdccy7nfEPMXrvWBonNwIqz3yDZHYhYm5YuxFrnAusyw+WR
hBhiqSR7eN21ANZVq3pDTilikWR3qN2XB9Y1Q6VPiUzEck7BuZhh/iZqxNt/
+oNYweOzryMdgHVDYWxi0zXEit1Dnt97BVgpUpRwC1XESjqIrM+vB1aqyJOt
5z4hVqrQ1D5hMWDd4hfOrPJArJu1b25TRoB1e8Xv4LwAYiXij96vx/DImG5F
mvmIFXNHmjXlBaysX4eoXnjECvp4Z/leK7DudN3szh9GrBOf3wqwi4CV07zg
NRSNWLiCe0kvzgLrfr3tmj3yiKXkdiNO2wpYudVV1+xrEWuDoGLZaDaw8kqk
d6edQMzOzIPssXBgFTyMeNK2FjEfKRSERGP19Cij12RbNmIGP+3arnccWEVJ
pk0kQEwTolbxwxJgFV+65xDThemLFc66Tdh9JeEb/tSGIUbNt+0Lt8nAKvNz
jeKRQIyQYc8XHzG+lrs1iByuRAxVo/hDLzC+v2Be1iieQ/Q4PpdK90RgVePG
X4+nILpalvR+GU9gISMqU0kb0ZobznsppwCrVknEL9sX03sHza4kYfX2fjW1
9Oo4Il8rOUhmfwAW1l/N31/G+GrCq38Gw+/ziG3bRmVEzL7kLTotB6zmVum/
Z90Q/oaGjJOLALA68u4fOtWPLA42WaUZzQHrN6u4AteBdDpNOnmuOwFrzJ+b
QzFB2kJf7pzJHAbWRNLKVWYe0jC8XZFmheE53YJ3OhqM9gvLl55bjQbWEr13
m//Ol6s8LTMcs0PAFqRuc8vigpbJ5aEwYR1gbz39jHkPgc5/kzafibPA3nbV
zihfAfR+CS+MZxwBtuinh6KlcwC6Jbea5luBLUWCV+9TwPwyCEus0QW2zKnB
gsYVsGiJsOuI7gW2bHx8SpszWIletXC5RgG2/PtvHj3agI/KL5pLOgvsg3iv
HX/bgLKBcLb85G5gq50UW79kCFR+NZGW/XHA1rj0fHLNfaDGNto8ficB7EP1
G+sEAoAWoW03M34Y2LrDhU+2dQFtumzX5qY/wNbnY9wWtwC6w+Ful2lNYINl
po8sticcbHdv8N8CbBMXc7t9ocC48kznntJBYJtd/G2l3I/pcFnlQcQDbIv7
1zTUicDUX8N7plQc2FZ1h6QOlQAz9vCmfzzCwMYP/OA3wOZkU8V/vw84AJvE
GzljgvVRUaecfGnsPMpehZ+Wo8CiK78uc/8BbJrZpwYSE1gxS2r3gqSBzXD0
K6W/AFbFa1b2pTJgs87vzOJiuPf7WjqpEYHNuYvi7OKBzbfS/DpOANjWr50D
HGaAvc8mouTfM2Af6RM47moLbKPQhGFhU2Dbry0metRi99htaH33GtjHZLmH
fJWBbTv7gHPHHtgOxiuyQYn/fy6+PJoJbMfjOYJhC8A+bsQ4bd4MbOdzuLko
LA7r0do/l1aA7Zo10RfTAGwiQeWGHw7YJ9GNT1fUga1jpx065wPsU92HKxLT
MNz34Q1yPIDtudqTk7oWWMuP06dGLgLbWzr6asZJYLWtKH2eLAW2r9GB4LtY
n8+TKDTS2A9sf72KMiyPrOC8s1Etl4AdqG0+ZYv1YfPhY4ZiGD5n1JqUy5Ow
Odhr89uqE9ghB+xdt2M67sO92uy0ZGCHKYzc9RYFZoyx4TrxUGCHywV0fcT0
i2Hto65GOrCjdl1lXcD23Nv1J4pPYHy+IL4rofc/YJh5lbvlY/yLFn7wwZAL
9CGipDLC4ojjRyZ/24EuNRcyLo7Fff3flKpLJ1C53z/GS38GdtJ0mHutBFAq
kvMTfjwAdvIE/wMZOyBXnBsk9x0DdtqgrOS3LiDeceM/zpMO7DstjM24brCS
Lih6o7kE7OKiksH9A6C/xYD27inmX0mB8e4YedA9xmYVmmP8LXvw0bbfGbTz
K2ve3d4M7MqMgebbw6Cmtrl36nwlsGsui70SHIH/ZHNVn7Y9AXaTW9CtiXGk
GmzDSH6/COwWp/VfiSpIw/jP0adsJ2C3HbsmnHsaafPiyZ0f5IDdznl46dgk
OhwaYd/KmgB2r3l7wJdpZCoo0dS5BeNNv7FzsYomMmOHDzP/YfUyqP9nLNYP
md+S4Cr+h/FvRHOzo8lfZLX95WTbzjFg/5HVpz2dQ8RXqmunNJjAnhH5pK0j
gEhtnPNGHIwPf3mP7Xwhg8j92Vm8Mz3Anh+O6qu1QlT/jyn/QBLYi+2i76xs
EXVq8N2FdYrAXn7/oOCDF6Kd3G5izdYAzppH7/1bUhGdrPNGeV0AcNZl2dlw
sf2rYu78VUIUcHivTRh21iDGbvuNznkngMPvL7KxfwQxesueiWH7A2ezc86o
6wpi6gcXae34AxxBrnbjmDBiXrso9H2NA3C2HbZJndVDrAMyKX97zgFHRHn0
7BkyYvle4l6Z+QQcUamzDssOiFUyWm1n4QsccSEhy3MBiDWlF1bpxATOjjV3
lHljEVvhRMjPjxeAs3NaU+hSBmLbWDcVGoYCR6L/zaxgMWJHC7XsrdgDHKk2
zvdrdYj9KEzwrsUZ4Mi8/VUt2oHYjUl4VF4EHNmKkDupk4g9RkqZe3gLOHL5
gtFS6xFnfbbZ/OYZ4MjfznS/8x/iiMUM5pVi8SpcUaPKKyOO7Cp31DoDOErh
rzXzAHGUeBDPuQjgKHuzdqgwEWd/7KVHOznAUXEYXC52RZx9tzxFiKbAUWUG
9WqHIo6UhpcStx046hab6ioTEGcro4uHdR44modu5xvmIPbCKjX9AXa+tqLK
1ZpyxO7Rzc/S6wCOzk7kZ/EBsWv4JKJDvwFHT4DObehG7HTvHcWHMbwOL/cb
kGcQ2zf0+JYb08AxmAjY3cyH2Gbqf0NNlYBj1MO3gSOJ2Fszd/ecGwKOcVPq
SIc6YrV+ODW9sxs4prX7Px+1QKzkt1mPxySAY15a9bTPBrHoGTUJCVi+LB9Q
brp4Ihb/8W3ujyyBg7vZE/o7EjGfS6/dWikOHEKs7/HTyYjpMnL4eosYcCge
KUqB1YhRPMvXusQADu2o4pbFJsSg2aGVC+HAYVArp8MHEf23/Jrw+WbgcDS6
XsRsQfRtGs9EtT4Cx35BnnzTHlGVRFteSZ4FzrHf5RoSPohCvBRa45cLHIcf
ePGsi4hswH5p65cPHGfk0Z37CBH59TPu8V4FjufFUp/yVWRJixj7V8ALHK87
ccUbOpH5vPvZIVU54PhUH59iViKztMVxhaEE4AT83XJ60g8Zf7jm7s4NAk64
k4vHvmF0aHi5ucxWHTgJZjtckpuM+g4/OxZU5gGc60cn7vc/BsEHXarKTzD8
k0LeDKrHwy7Dcxuaz24Azs2nPo6fLEGJR6hheK8KcLJl3zvwvgBdLePFXrY7
cIrXhNn63QOrncc0AhcfAKdEknGrJhJw3i7SdoPY92W6ih1CxwD/6iZP9QCW
n0qvNuuCnUAirJQO7K0Gzov4gpvz/4B8IYz3zgEucKpzI79ZtgClrCzgSpoA
cGq6D7L7rgB19dyXor/JwKld4k1WcwdabHk35+tl4LwV72gNtwL6tn1zvr1z
wHlPiWHuWgeMrWJ5C2tagPPR3T7RtRsYF0k/n849Ac7naM2msmpgzCm77IkV
BE5zdQ+Nju3t7+0DZaMxvrS2P0vIYmF7jz9Jw20fcL7+vfx5XB3T2ZWyboXa
wGkXdtyqLwSsH8Lxy51TwOlU0SNfwvqaslMtXRzzvwsvdPkrNgf8b+fuFgsG
TrfT4Me9ucAuz36rcxTjc++5KgHfC8CePe70vLAPOP3piYRXWF/ZXx85UYXV
62CFW9xWI+Acqe+KbdIFznCrUYMd5tcFxvIlljVwRqbE+PPmgZN7ROWCRiBw
xgRGrebasLy0XL5y2wY4Ewo1MRZPMT+fbbywIQ04U2Y33yZhvPi1aDvh+Rw4
08dOb+j1BM6f23L0yS7gzIaaW6gSgDNz48OGVaz//fNb09rKA5xJ99WB+yTg
zLtXO50pw/zyrw/79R04iyeCZ6VOAaetJOOOwzrgLB85dP61LHBe7bdNtI0F
zip9ZrsLVtf3uixjFEyBuwZflCNwBTjnm/l7aP8Bd52Jh8YTM6wuhJ6um0wF
Lq+e4mvWAnDUMku7CB+Bu1FtkL5QBOzVS0NiAoLA5Ve805vpDOy37cHd/k+A
u3n3UR8zTMfFZqy9sP0wcAV3SKwZbgK2Za9bnGsIcLcKfbt2OQZYq2V/knTH
gLuN78ZudUNMxytr/IQp4G6f2wIhecDaaPxak70CXLGJhkaZY8DM43/B9yIW
uP8NRR99IwZMy1cVUVE5wJX4yhO+JRIYfvZdp7ceAK7Up6otT3WAsc4/zfPO
FuDK1J3J4IwD/fLPoCSlCODKlf6pyrYB2g2JRLTbEbjyhY9JFkJAE1a6cfqe
HXAV7rl3jtRh+/0azWcqOOAqJ/UvaaoDuUf4b2p3IHA1fb/qveUHvGTso6dz
NcDVdk9scK8Gq47Mr5WY3uDqnKDaCPmBZWLI6ucnYsDVp9efse4Gs6naG5T4
38A1U3v+bLQcDPv4DQ7vDQMuYyJLS9gVpCxbxx9ZEYDLGrKtfSYFwpzSf4tL
osDl/NzBPNJiNH++Y+cDh/XAPfLpuu89QNsSaWXNJcnAPVF4vljnP6RK5yz7
LtwGrq+720G7t8i04NFzoTefgOt/+eSODxbIXDF1RHl9K3ADH7uv13uDLLJq
EmWl9gI3ZPrUd/HXCBcqvbWhzxO450O8Ir+8ROSOgp+i06rAvZju7QGGiLo1
YZRnbyVwY176cB5VIWpB25bPNgnAvbzOTznuOaJ9J5yNGHoP3Kt7/cUW9BDd
Va7ARHQDcK9ZBqxxrUD0qfYjR2JygXsjLrDN/BlizOp7KQofAm5KYRAq0UZM
z/QDrO/VwE39fCZfthTbj01V25VjgHtrKvjGNU3EogrcCLeXBm6GSEj46lPE
evZ9lxo/D3CztEJPeqoj9o5YVd/3HsC9wwljdj5BbP+1iydEdIF7/1a4YsVj
xPmvR0RbQRO4uVUR2xVUEOe4aLzdHMavvJ8RK8mFiHOnSNZwaRS4hWvO/eLF
5u+P9A1xnuHAfbwnstk3H3G3NZD5hb4D94l5VFWvEuIa7ZtdObQduE9dzudS
HyKu04Nf2/OPArf00oXrLxUQ94LhuqIFIeA+y78YduAB4qZ3i7/4gPGx4mO0
y215xH18YaJPDqu35xMx9E33ELdSkW4QjNVb9bZL+mfkELeqbq1XJxe4SCNW
fugu9t76tZ41xocaVtw2tiz2fT/npE4ocGsD4xZrsxE3wyWSlPQcuHWp8YMa
Mtj9Qxsv7qkF7rvnlxuzMxHX2TWPuhs7v+HHledCUpj/M8ragReB+2H16r2z
6YgrnEjQckLA/bw74eqYBOJ00V4SpbB4vpheCz5yC3HuGhwK+4Xlq9npumPD
Tix/TmzTFAyf1uhEik4qlt+OQs/dv4D79WGS7oP/ELv+aUVIBmZ/f39DTjQF
sf3Wdh59egS4HWPJW86LIbZ4NwdN3gNu19bkuT83EKvUyaLgwTvg9jJufvyc
iJg/mnk6vTA+9funlhti+s713xrlRhXgDqak3Sm4hhjjOp96A4aAO9JxO/DS
VUQfypRx/DoJ3NHl9ONz2Hy3FXBR3uYN3AnpDKLzZUR7rzC27wcJuNMnsnab
xiFqmrDPTzvsvsXfdxuWoxFh5SsBHj3G7MXZHUlMRJg5Iu+H7gJ3ScDCdb8M
Ivz6IftQEMNvSfkXL7cSEVo6Il47YPW25Kli9HQUEfJeDaYHjmP2ZHnJSSoi
sLUmTQ9g/Wp59mP6150In//yRf6P48Bd2SA16jGI8Nn8fGtOFWC2mNfh9U8R
Ppkau+vHDGYfEv6mTkT4iHatYzJdmB3EFb4cjvCsb4e9v//fXuiNNu1HuNXw
rJA4rB5WN2u0thch3ExB3nRzOmbvuiDnHYZwv77+M85Wx2z9fa8yxRCuRZEr
L4b1o9WwU4sLOITLfUa+3t2D2Zer8dew9+ltIYfWOmN2xtbUfb0Id316wgww
/Feri7VZoQgXpljkLLgWsz+vOz9qhXA+xivdg5KY/ZPZHCWKcC7clGunAjB7
4r7sDux7W4+Q/VtaMHv1n1fRI4SjReQdt7b5H4navpY=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 100}, {-98.96521054288439, 95.82164288218922}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.39476266853098*^9}]
}, Open  ]],

Cell[TextData[{
 "You might ",
 StyleBox["reassign ",
  FontSlant->"Italic"],
 "meaning to the symbols ",
 StyleBox["f[x]", "Input"],
 " and ",
 StyleBox["g", "Input"],
 ", but ",
 StyleBox["how do you simply ",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["strip away",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" the meanings they have previously acquired;  how do you restore \
them to the list of undefined symbols? ",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["For this purpose ",
  FontColor->GrayLevel[0]],
 StyleBox["Mathematica",
  FontSlant->"Italic",
  FontColor->GrayLevel[0]],
 StyleBox[" provides the command ",
  FontColor->GrayLevel[0]],
 StyleBox["Clear", "Input",
  FontColor->GrayLevel[0]],
 StyleBox[".",
  FontColor->GrayLevel[0]]
}], "Text",
 CellChangeTimes->{
  3.394762825468993*^9, {3.394762945713656*^9, 3.394762957743438*^9}, {
   3.394763009838211*^9, 3.3947630540421553`*^9}, 3.394763981557497*^9, {
   3.394766320900345*^9, 3.394766345513104*^9}, {3.3947955026046886`*^9, 
   3.394795617765551*^9}, {3.394795649197989*^9, 3.394795683366171*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Clear"}]], "Input",
 CellChangeTimes->{{3.394763259131871*^9, 3.394763260451*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Clear\\\", \\\"[\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"symbol\\\", \\\"TI\\\"], \
StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"symbol\
\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\
\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"]\\\"}]\\) clears values and definitions \
for the \\!\\(\\*SubscriptBox[StyleBox[\\\"symbol\\\", \\\"TI\\\"], StyleBox[\
\\\"i\\\", \\\"TI\\\"]]\\). \\n\\!\\(\\*RowBox[{\\\"Clear\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"\\\\\\\"\\\\!\\\\(\\\\*StyleBox[\\\\\\\"form\\\\\\\",\\\\\
\\\"TI\\\\\\\"]\\\\_1\\\\)\\\\\\\"\\\", ShowStringCharacters->True], \
\\\",\\\", StyleBox[\\\"\\\\\\\"\\\\!\\\\(\\\\*StyleBox[\\\\\\\"form\\\\\\\",\
\\\\\\\"TI\\\\\\\"]\\\\_2\\\\)\\\\\\\"\\\", ShowStringCharacters->True], \
\\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"]\\\"}]\\) clears \
values and definitions for all symbols whose names match any of the string \
patterns \\!\\(\\*SubscriptBox[StyleBox[\\\"form\\\", \\\"TI\\\"], \
StyleBox[\\\"i\\\", \\\"TI\\\"]]\\). \"\>", "MSG"], " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Clear"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.394763263467609*^9},
 CellTags->"Info3394738062-2405879"]
}, Open  ]],

Cell["To see how this works, command", "Text",
 CellChangeTimes->{{3.394766382948803*^9, 3.394766389568693*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", "g", "]"}]], "Input",
 CellChangeTimes->{{3.394763104255145*^9, 3.394763107427248*^9}}],

Cell[TextData[{
 "and see that ",
 StyleBox["g", "Input"],
 " is now once again just a letter in the alphabet:"
}], "Text",
 CellChangeTimes->{{3.39476642019278*^9, 3.394766468334495*^9}}],

Cell[CellGroupData[{

Cell[BoxData["g"], "Input",
 CellChangeTimes->{3.3947631211952887`*^9}],

Cell[BoxData["g"], "Output",
 CellChangeTimes->{3.394763122226521*^9}]
}, Open  ]],

Cell["It is, in particular, no longer the name of a graph:", "Text",
 CellChangeTimes->{{3.394766476497957*^9, 3.394766499153908*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "g", "]"}]], "Input",
 CellChangeTimes->{{3.394763131791226*^9, 3.394763138708922*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Show", "::", "\<\"gtype\"\>"}], ":", 
  " ", "\<\"\\!\\(Symbol\\) is not a type of graphics. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Show/gtype\\\", \
ButtonNote -> \\\"Show::gtype\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.394763139999075*^9}],

Cell[BoxData[
 RowBox[{"Show", "[", "g", "]"}]], "Output",
 CellChangeTimes->{3.394763140230462*^9}]
}, Open  ]],

Cell["", "Text",
 CellChangeTimes->{{3.394766517251514*^9, 3.3947665172663116`*^9}}],

Cell[TextData[{
 "What about the removal of the function ",
 StyleBox["f[x]", "Input"],
 "? The command"
}], "Text",
 CellChangeTimes->{{3.394766529864873*^9, 3.394766576857808*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "f"}]], "Input",
 CellChangeTimes->{{3.394765020515209*^9, 3.3947650226774597`*^9}}],

Cell[CellGroupData[{

Cell["Global`f", "Print", "PrintUsage",
 CellChangeTimes->{3.394765026517373*^9},
 CellTags->"Info3394739824-6564964"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        RowBox[{
         RowBox[{"f", "[", "x_", "]"}], ":=", 
         SuperscriptBox["x", "17"]}]},
       {" "},
       {
        RowBox[{
         RowBox[{"f", "[", 
          RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
         RowBox[{
          RowBox[{"u", " ", 
           SuperscriptBox["x", "3"]}], "+", 
          RowBox[{"v", " ", 
           SuperscriptBox["y", "3"]}], "+", "w"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition["f"],
  Editable->False]], "Print",
 CellChangeTimes->{3.394765026808124*^9},
 CellTags->"Info3394739824-6564964"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "reminds us that we have in fact\[LongDash]carelessly\[LongDash]taken ",
 StyleBox["f", "Input"],
 " to be the name of two distinct functions. The command"
}], "Text",
 CellChangeTimes->{{3.3947665940464087`*^9, 3.394766622652916*^9}, {
  3.394766716624579*^9, 3.394766719084063*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", "f", "]"}]], "Input",
 CellChangeTimes->{{3.394763476228554*^9, 3.394763481857666*^9}}],

Cell[TextData[{
 "simultaneously expunges ALL the meanings we have previously associated with \
the letter ",
 StyleBox["f", "Input"],
 ", as we now demonstrate:"
}], "Text",
 CellChangeTimes->{{3.394766743229732*^9, 3.394766838183556*^9}, {
  3.3947957580816517`*^9, 3.394795758324264*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"f", "[", "x", "]"}], "\[IndentingNewLine]", 
 RowBox[{"f", "[", 
  RowBox[{"x", ",", "y"}], "]"}]}], "Input",
 CellChangeTimes->{{3.394763513277622*^9, 3.3947635136717157`*^9}}],

Cell[BoxData[
 RowBox[{"f", "[", "x", "]"}]], "Output",
 CellChangeTimes->{3.3947635151601877`*^9}],

Cell[BoxData[
 RowBox[{"f", "[", 
  RowBox[{"x", ",", "y"}], "]"}]], "Output",
 CellChangeTimes->{3.394763515173325*^9}]
}, Open  ]],

Cell[TextData[{
 "It is to avoid this difficulty that one must be careful to ",
 StyleBox["assign distinct names to all functions",
  FontVariations->{"Underline"->True}],
 ". In  the present instance we might more wisely have written (say)"
}], "Text",
 CellChangeTimes->{{3.394795778082514*^9, 3.3947958345043383`*^9}, {
  3.394795873815778*^9, 3.394795910305291*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f1", "[", "x_", "]"}], ":=", 
  SuperscriptBox["x", "17"]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f2", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"u", " ", 
    SuperscriptBox["x", "3"]}], "+", 
   RowBox[{"v", " ", 
    SuperscriptBox["y", "3"]}], "+", "w"}]}]}], "Input",
 CellChangeTimes->{{3.394795920886179*^9, 3.394795992199338*^9}}],

Cell["We check those definitions", "Text",
 CellChangeTimes->{{3.3947960344887333`*^9, 3.394796041498651*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"f1", "[", "x", "]"}], "\[IndentingNewLine]", 
 RowBox[{"f2", "[", 
  RowBox[{"x", ",", "y"}], "]"}]}], "Input",
 CellChangeTimes->{{3.394796065600071*^9, 3.394796082839573*^9}}],

Cell[BoxData[
 SuperscriptBox["x", "17"]], "Output",
 CellChangeTimes->{3.394796086221792*^9}],

Cell[BoxData[
 RowBox[{"w", "+", 
  RowBox[{"u", " ", 
   SuperscriptBox["x", "3"]}], "+", 
  RowBox[{"v", " ", 
   SuperscriptBox["y", "3"]}]}]], "Output",
 CellChangeTimes->{3.394796086318076*^9}]
}, Open  ]],

Cell["and verify that", "Text",
 CellChangeTimes->{{3.394796108043486*^9, 3.39479611357941*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", "f1", "]"}]], "Input",
 CellChangeTimes->{{3.394796118933939*^9, 3.394796124960417*^9}}],

Cell["expunges the former, but not the latter:", "Text",
 CellChangeTimes->{{3.394796134659852*^9, 3.3947961444198637`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"f1", "[", "x", "]"}], "\[IndentingNewLine]", 
 RowBox[{"f2", "[", 
  RowBox[{"x", ",", "y"}], "]"}]}], "Input",
 CellChangeTimes->{{3.394796065600071*^9, 3.394796082839573*^9}}],

Cell[BoxData[
 RowBox[{"f1", "[", "x", "]"}]], "Output",
 CellChangeTimes->{3.394796166296135*^9}],

Cell[BoxData[
 RowBox[{"w", "+", 
  RowBox[{"u", " ", 
   SuperscriptBox["x", "3"]}], "+", 
  RowBox[{"v", " ", 
   SuperscriptBox["y", "3"]}]}]], "Output",
 CellChangeTimes->{3.394796166399377*^9}]
}, Open  ]],

Cell[TextData[{
 StyleBox["TIP",
  FontColor->RGBColor[1, 0, 0]],
 StyleBox[": One should be careful to ",
  FontWeight->"Plain"],
 StyleBox["clear assignments/definitions when you are finished with them",
  FontWeight->"Plain",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[". This frees up memory, and helps avoid distracting surprises and \
confusion. But you will sometimes forget, so\[Ellipsis]",
  FontWeight->"Plain"]
}], "Text",
 CellChangeTimes->{3.3947964739248543`*^9},
 FontWeight->"Bold"],

Cell[TextData[{
 StyleBox["TIP",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 ": It is a good idea to make ",
 StyleBox["Clear[", "Input"],
 StyleBox["the symbols you plan to use", "Input",
  FontSlant->"Italic"],
 StyleBox["]", "Input"],
 " your first command when, in the midst of a work session, you start a fresh \
computation."
}], "Text",
 CellChangeTimes->{{3.3947964812569923`*^9, 3.394796484688569*^9}, {
  3.394796759758543*^9, 3.394796841401969*^9}}],

Cell["\<\
We will have no immediate need of this more comprehensive command:\
\>", "Text",
 CellChangeTimes->{{3.3947968821400337`*^9, 3.394796911870767*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "ClearAll"}]], "Input",
 CellChangeTimes->{{3.3947963456832247`*^9, 3.3947963515867977`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"ClearAll\\\", \\\"[\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"symb\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"symb\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\
\"TR\\\"]}], \\\"]\\\"}]\\) clears all values, definitions, attributes, \
messages and defaults associated with symbols. \
\\n\\!\\(\\*RowBox[{\\\"ClearAll\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"\\\\\\\"\\\\!\\\\(\\\\*StyleBox[\\\\\\\"form\\\\\\\",\\\\\
\\\"TI\\\\\\\"]\\\\_1\\\\)\\\\\\\"\\\", ShowStringCharacters->True], \
\\\",\\\", StyleBox[\\\"\\\\\\\"\\\\!\\\\(\\\\*StyleBox[\\\\\\\"form\\\\\\\",\
\\\\\\\"TI\\\\\\\"]\\\\_2\\\\)\\\\\\\"\\\", ShowStringCharacters->True], \
\\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"]\\\"}]\\) clears \
all symbols whose names textually match any of the \
\\!\\(\\*SubscriptBox[StyleBox[\\\"form\\\", \\\"TI\\\"], StyleBox[\\\"i\\\", \
\\\"TI\\\"]]\\). \"\>", "MSG"], " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/ClearAll"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.3947963595971537`*^9},
 CellTags->"Info3394771153-4685404"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["How to Clear a Subscripted Variable",
 FontColor->RGBColor[0, 0, 1]]], "Subsubsection",
 CellChangeTimes->{{3.3959222721372557`*^9, 3.3959222822939873`*^9}, {
  3.39674003990418*^9, 3.396740048700333*^9}}],

Cell["Suppose you have had occasion to define", "Text",
 CellChangeTimes->{{3.3947974664669847`*^9, 3.394797466475914*^9}, {
  3.3959222998175287`*^9, 3.395922308302979*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["a", "3"], "=", "SomeExpression"}]], "Input",
 CellChangeTimes->{{3.395922316282895*^9, 3.395922344701715*^9}}],

Cell[BoxData["SomeExpression"], "Output",
 CellChangeTimes->{3.3967402308152018`*^9}]
}, Open  ]],

Cell[TextData[{
 "and want now to clear ",
 Cell[BoxData[
  SubscriptBox["a", "3"]],
  CellChangeTimes->{{3.395922316282895*^9, 3.395922344701715*^9}}],
 ". The command"
}], "Text",
 CellChangeTimes->{{3.395922354172758*^9, 3.395922404433103*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Clear", "[", 
  SubscriptBox["a", "3"], "]"}]], "Input",
 CellChangeTimes->{{3.395922414707202*^9, 3.395922420150168*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "::", "\<\"ssym\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(a\\_3\\) is not a symbol or a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Clear/ssym\\\", \
ButtonNote -> \\\"Clear::ssym\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.3959224297921343`*^9, 3.395922946195819*^9}]
}, Open  ]],

Cell["did not work. Nor does it work to command", "Text",
 CellChangeTimes->{{3.395922407557123*^9, 3.395922446017338*^9}, {
   3.395922761044621*^9, 3.395922798655869*^9}, {3.395922887829625*^9, 
   3.395922895561619*^9}, 3.395923077405677*^9}],

Cell[BoxData[
 RowBox[{"Clear", "[", "a", "]"}]], "Input",
 CellChangeTimes->{{3.395922901528296*^9, 3.395922905988083*^9}}],

Cell["for we still have", "Text",
 CellChangeTimes->{{3.395923097899159*^9, 3.3959231005627537`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 SubscriptBox["a", "3"]], "Input",
 CellChangeTimes->{{3.395922915340185*^9, 3.395922927232656*^9}}],

Cell[BoxData["SomeExpression"], "Output",
 CellChangeTimes->{{3.395922916573523*^9, 3.395922956944254*^9}}]
}, Open  ]],

Cell[TextData[{
 "How to proceed? ",
 StyleBox["Vacate the definition",
  FontSlant->"Italic"],
 " by defining ",
 Cell[BoxData[
  SubscriptBox["a", "3"]],
  CellChangeTimes->{{3.395922316282895*^9, 3.395922344701715*^9}}],
 " to be \"nothing,\" this way:"
}], "Text"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["a", "3"], "=."}]], "Input",
 CellChangeTimes->{{3.3959228170777683`*^9, 3.395922817627245*^9}}],

Cell["Test the result:", "Text",
 CellChangeTimes->{{3.3959228320055037`*^9, 3.395922835446644*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 SubscriptBox["a", "3"]], "Input"],

Cell[BoxData[
 SubscriptBox["a", "3"]], "Output",
 CellChangeTimes->{3.395923010812722*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Sources of Information", "Section",
 CellChangeTimes->{{3.394797482817168*^9, 3.394797498902595*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Hardcopy Materials",
 FontColor->RGBColor[1, 0, 0]]], "Subsection",
 CellChangeTimes->{{3.394797519687331*^9, 3.394797525247477*^9}}],

Cell[TextData[{
 "Earlier versions of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " shipped with hardcopy editions of "
}], "Text",
 CellChangeTimes->{{3.394798509117401*^9, 3.394798522613658*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["\[Bullet] ", "Code"],
 StyleBox["The ",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Mathematica",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Book",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[", which provided definitive descriptions of every feature of the \
software, but was much too fat to carry around. Chapter I ",
  FontColor->GrayLevel[0]],
 StyleBox["\"A Practical Introduction to ",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Mathematica",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["\"",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" ran to 228 pages, and provided a valuable survey of the basics, \
with many examples. ",
  FontColor->GrayLevel[0]]
}], "Item1Paragraph",
 CellChangeTimes->{{3.394798540872954*^9, 3.3947986352725153`*^9}, {
  3.3947986724413433`*^9, 3.394798736218644*^9}, {3.3947987667503233`*^9, 
  3.394798790721757*^9}},
 TextAlignment->Left,
 TextJustification->1.],

Cell[TextData[{
 StyleBox["\[Bullet] ",
  FontSlant->"Italic"],
 StyleBox["Mathematica",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Standard Add-on Packages",
  FontColor->RGBColor[0, 0, 1]],
 ", which described and illustrated tyhe use of roughly 1000 resources\
\[LongDash]many quite valuable\[LongDash]which were installed together with \
",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 ", but became available only when explicitly called upon. "
}], "Item1Paragraph",
 CellChangeTimes->{{3.3948003596676617`*^9, 3.3948004938019238`*^9}}]
}, Open  ]],

Cell[TextData[{
 "\[LineSeparator]The release of v.6 has rendered those books obsolete, but \
not entirely, and has actually increased their value, for with the release of \
v.6 Wolfram seems to have elected to discontinue the preparation/distribution \
of such volumes: all such information must now be sought electronically, by \
consulting resources accessed ",
 StyleBox["via",
  FontSlant->"Italic"],
 " the ",
 StyleBox["Help",
  FontWeight->"Bold"],
 " menu. "
}], "Text",
 CellChangeTimes->{{3.394800528878998*^9, 3.394800646445311*^9}, {
  3.394800679806973*^9, 3.3948007149674*^9}, {3.394800870534418*^9, 
  3.394801009270389*^9}, {3.395923269492755*^9, 3.395923292966135*^9}}],

Cell[TextData[{
 "A great many books by authors not associated with Wolfram are available in \
the market place\[LongDash]visit ",
 Cell[BoxData[
  TagBox[
   ButtonBox[
    PaneSelectorBox[{False->"\<\"WolframBooks\"\>", True->
     StyleBox["\<\"WolframBooks\"\>", "HyperlinkActive"]}, Dynamic[
      CurrentValue["MouseOver"]],
     BaselinePosition->Baseline,
     FrameMargins->0,
     ImageSize->Automatic],
    BaseStyle->"Hyperlink",
    ButtonData->{
      URL["http://store.wolfram.com/catalog/books/author.html"], None},
    ButtonNote->"http://store.wolfram.com/catalog/books/author.html"],
   Annotation[#, "http://store.wolfram.com/catalog/books/author.html", 
    "Hyperlink"]& ]],
  CellChangeTimes->{3.395764508230997*^9}],
 " \[LongDash]but most of those are similarly obsolete. Of those, some are \
addressed to students, others to experts; some provide tutorial overviews, \
others threat specialized topics (differential equations, graphics, \
statistics, ",
 StyleBox["etc",
  FontSlant->"Italic"],
 ".)."
}], "Text",
 CellChangeTimes->{{3.394801407120575*^9, 3.394801424783676*^9}, {
   3.394801455633752*^9, 3.3948015411239853`*^9}, 3.395764359240102*^9, {
   3.3957645217037287`*^9, 3.395764535101459*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.3957651352535763`*^9, 3.395765135257669*^9}}],

Cell[TextData[{
 StyleBox["REMARK",
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 0]],
 ": To insert the link into that sentence, I used a resouce you can read \
about if you command"
}], "Text",
 CellChangeTimes->{{3.395764588852191*^9, 3.3957646923745213`*^9}, {
  3.395923387600307*^9, 3.3959234074716883`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Hyperlink"}]], "Input",
 CellChangeTimes->{{3.395764700602132*^9, 3.395764703487236*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Hyperlink\\\", \\\"[\\\", \
StyleBox[\\\"uri\\\", \\\"TI\\\"], \\\"]\\\"}]\\) represents a hyperlink that \
jumps to the specified URI when clicked. \
\\n\\!\\(\\*RowBox[{\\\"Hyperlink\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"label\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"uri\\\", \
\\\"TI\\\"]}], \\\"]\\\"}]\\) represents a hyperlink to be displayed as \
\\!\\(\\*StyleBox[\\\"label\\\", \\\"TI\\\"]\\). \"\>", "MSG"], " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Hyperlink"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.395764710624609*^9},
 CellTags->"Info3395739510-6287617"]
}, Open  ]],

Cell[TextData[{
 "and follow the ",
 StyleBox["\[RightSkeleton]",
  FontColor->RGBColor[0, 0, 1]],
 ". More specifically, I entered (in a notebook I am using as \"scratch paper\
\") the command "
}], "Text",
 CellChangeTimes->{{3.3957649993276167`*^9, 3.3957650811342297`*^9}, 
   3.395768716981867*^9, {3.395768750232546*^9, 3.3957688558337793`*^9}, {
   3.395768887768837*^9, 3.395768925543239*^9}, {3.395882925050312*^9, 
   3.39588294114355*^9}, {3.395923416224845*^9, 3.395923480034544*^9}, 
   3.3959235220480328`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<WolframBooks\>\"", ",", 
   "\"\<http://store.wolfram.com/catalog/books/author.html\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.395764463475705*^9, 3.395764500128173*^9}}],

Cell[BoxData[
 TagBox[
  ButtonBox[
   PaneSelectorBox[{False->"\<\"WolframBooks\"\>", True->
    StyleBox["\<\"WolframBooks\"\>", "HyperlinkActive"]}, Dynamic[
     CurrentValue["MouseOver"]],
    BaselinePosition->Baseline,
    FrameMargins->0,
    ImageSize->Automatic],
   BaseStyle->"Hyperlink",
   ButtonData->{
     URL["http://store.wolfram.com/catalog/books/author.html"], None},
   ButtonNote->"http://store.wolfram.com/catalog/books/author.html"],
  Annotation[#, "http://store.wolfram.com/catalog/books/author.html", 
   "Hyperlink"]& ]], "Output",
 CellChangeTimes->{3.395923506616579*^9}]
}, Open  ]],

Cell[TextData[{
 "and then ",
 StyleBox["Copy/Paste",
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox["d the output into this notebook into the sentence where you found \
it. ",
  FontColor->GrayLevel[0]],
 "Note carefully that, while it might be most natural to type \"WolframBooks,\
\" the command will not function unless you type \"WolframBooks",
 StyleBox["\",", "Input",
  FontColor->RGBColor[1, 0, 0]]
}], "Text",
 CellChangeTimes->{{3.3959235976231194`*^9, 3.39592363954047*^9}, {
  3.3959236834995613`*^9, 3.395923695773629*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.395765143940773*^9, 3.39576514398647*^9}}],

Cell[TextData[{
 StyleBox["The ",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["Mathematica",
  FontSlant->"Italic",
  FontColor->RGBColor[0, 0, 1]],
 StyleBox[" Journal",
  FontColor->RGBColor[0, 0, 1]],
 " appears monthly, reads much like ",
 StyleBox["American Journal of Physics",
  FontSlant->"Italic"],
 " or ",
 StyleBox["Mathematical Monthly",
  FontSlant->"Italic"],
 " (so is, for the most part, readily accessible to students), and is \
available in the ÌÇÐÄÊÓƵ Library."
}], "Text",
 CellChangeTimes->{{3.3948015917506943`*^9, 3.394801693708486*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Built-in Sources",
 FontColor->RGBColor[1, 0, 0]]], "Subsection",
 CellChangeTimes->{{3.394797950519897*^9, 3.3947979573411694`*^9}}],

Cell[TextData[{
 "The primary source of information about v.6 is provided now by ",
 StyleBox["Help > Documentation Center",
  FontWeight->"Bold"],
 ", but it is like a Chinese box\[LongDash]arrays of links to arrays of links \
to arrays of links\[Ellipsis]  I cannot possibly present a map or those \
resources, urge you to spend some time exploring on your own to try to gain a \
vague sense of the lay of the land. You might, in particular, do this \
non-obvious thing: type ",
 StyleBox["Standard Packages",
  FontColor->RGBColor[0, 0, 1]],
 " in the search window. That will take you to 30 pages of stuff. Now type ",
 StyleBox["Physical Constants",
  FontColor->RGBColor[0, 0, 1]],
 " in the search window, click on ",
 StyleBox["Physical Constants Package ",
  FontVariations->{"Underline"->True},
  FontColor->RGBColor[0, 0, 1]],
 StyleBox["(Physical Constants Package Tutorial)",
  FontColor->RGBColor[0, 0, 1]],
 ": that will provide indication of the resources that become available once \
that particular package is installed, and instructions about how to install \
it. We are told to command"
}], "Text",
 CellChangeTimes->{{3.394801867144154*^9, 3.3948018715662537`*^9}, {
   3.394802045469563*^9, 3.394802112085167*^9}, {3.394802191863772*^9, 
   3.394802243724173*^9}, 3.394802980121777*^9, {3.394803039921668*^9, 
   3.3948030904019012`*^9}, {3.394803122626062*^9, 3.394803124283848*^9}, {
   3.394803422744918*^9, 3.394803470830868*^9}, {3.394803635516931*^9, 
   3.394803682240674*^9}, {3.394803728268303*^9, 3.394803802740388*^9}, {
   3.3948038365917664`*^9, 3.394803852156081*^9}, {3.394803947838067*^9, 
   3.3948039703978033`*^9}, {3.394804037902319*^9, 3.394804064001999*^9}, {
   3.394804116816043*^9, 3.394804131081436*^9}, {3.3948044601249533`*^9, 
   3.394804466203024*^9}, {3.395923777137897*^9, 3.395923800694997*^9}}],

Cell[BoxData[
 RowBox[{"<<", "PhysicalConstants`"}]], "Input"],

Cell["\<\
and that we will then have access to information such as the following:\
\>", "Text",
 CellChangeTimes->{{3.39480452915609*^9, 3.394804566509914*^9}}],

Cell[CellGroupData[{

Cell[BoxData["ClassicalElectronRadius"], "Input",
 CellChangeTimes->{{3.394804486922579*^9, 3.3948044928642473`*^9}}],

Cell[BoxData[
 RowBox[{"2.817940285`*^-15", " ", "Meter"}]], "Output",
 CellChangeTimes->{3.39480450646336*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["SpeedOfLight"], "Input",
 CellChangeTimes->{{3.3948045825935993`*^9, 3.394804591226264*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"299792458", " ", "Meter"}], "Second"]], "Output",
 CellChangeTimes->{3.394804594560443*^9}]
}, Open  ]],

Cell["", "Text",
 CellChangeTimes->{{3.3948046527040167`*^9, 3.394804652714271*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.394804665974802*^9, 3.394804685830841*^9}}],

Cell["\<\
 \tBut there exist other/quicker ways to obtain information which are \
frequently quite useful. Suppose, for example, that we had computed\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  UnderoverscriptBox["\[Sum]", 
   RowBox[{"j", "=", "0"}], "\[Infinity]"], 
  FractionBox[
   SuperscriptBox["x", "j"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"j", "+", "u"}], ")"}], "\[Nu]"]]}]], "Input"],

Cell[BoxData[
 RowBox[{"LerchPhi", "[", 
  RowBox[{"x", ",", "\[Nu]", ",", "u"}], "]"}]], "Output",
 CellChangeTimes->{3.394798053668703*^9}]
}, Open  ]],

Cell["\<\
and find ourselves wondering \"What in the world is a 'LerchPhi function'?\" \
We might enter\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "LerchPhi"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"LerchPhi\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"z\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"s\\\", \
\\\"TI\\\"], \\\",\\\", StyleBox[\\\"a\\\", \\\"TI\\\"]}], \\\"]\\\"}]\\) \
gives the Lerch transcendent \\!\\(\\*RowBox[{StyleBox[\\\"\[CapitalPhi]\\\", \
\\\"TR\\\"], RowBox[{\\\"(\\\", RowBox[{StyleBox[\\\"z\\\", \\\"TI\\\"], \
\\\",\\\", StyleBox[\\\"s\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"a\\\", \\\
\"TI\\\"]}], \\\")\\\"}]}]\\). \"\>", "MSG"], " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/LerchPhi"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.394798075063077*^9},
 CellTags->"Info3394772873-5908731"]
}, Open  ]],

Cell["which gives us some little information, and if we enter", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", "LerchPhi"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"LerchPhi\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"z\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"s\\\", \
\\\"TI\\\"], \\\",\\\", StyleBox[\\\"a\\\", \\\"TI\\\"]}], \\\"]\\\"}]\\) \
gives the Lerch transcendent \\!\\(\\*RowBox[{StyleBox[\\\"\[CapitalPhi]\\\", \
\\\"TR\\\"], RowBox[{\\\"(\\\", RowBox[{StyleBox[\\\"z\\\", \\\"TI\\\"], \
\\\",\\\", StyleBox[\\\"s\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"a\\\", \\\
\"TI\\\"]}], \\\")\\\"}]}]\\). \"\>", "MSG"], " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/LerchPhi"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.394798096842916*^9},
 CellTags->"Info3394772896-3192917"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     RowBox[{
      RowBox[{"Attributes", "[", "LerchPhi", "]"}], "=", 
      RowBox[{"{", 
       RowBox[{
       "Listable", ",", "NumericFunction", ",", "Protected", ",", 
        "ReadProtected"}], "}"}]}]},
    {" "},
    {GridBox[{
       {
        RowBox[{
         RowBox[{"Options", "[", "LerchPhi", "]"}], "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"DoublyInfinite", "\[Rule]", "False"}], ",", 
           RowBox[{"IncludeSingularTerm", "\[Rule]", "False"}]}], "}"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition["LerchPhi"],
  Editable->False]], "Print",
 CellChangeTimes->{3.394798096930586*^9},
 CellTags->"Info3394772896-3192917"]
}, Open  ]]
}, Open  ]],

Cell["or equivalently", "Text",
 CellChangeTimes->{{3.394804768553322*^9, 3.3948047730498457`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Information", "[", "LerchPhi", "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"LerchPhi\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"z\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"s\\\", \
\\\"TI\\\"], \\\",\\\", StyleBox[\\\"a\\\", \\\"TI\\\"]}], \\\"]\\\"}]\\) \
gives the Lerch transcendent \\!\\(\\*RowBox[{StyleBox[\\\"\[CapitalPhi]\\\", \
\\\"TR\\\"], RowBox[{\\\"(\\\", RowBox[{StyleBox[\\\"z\\\", \\\"TI\\\"], \
\\\",\\\", StyleBox[\\\"s\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"a\\\", \\\
\"TI\\\"]}], \\\")\\\"}]}]\\). \"\>", "MSG"], " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/LerchPhi"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.394798126612096*^9},
 CellTags->"Info3394772926-6209427"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     RowBox[{
      RowBox[{"Attributes", "[", "LerchPhi", "]"}], "=", 
      RowBox[{"{", 
       RowBox[{
       "Listable", ",", "NumericFunction", ",", "Protected", ",", 
        "ReadProtected"}], "}"}]}]},
    {" "},
    {GridBox[{
       {
        RowBox[{
         RowBox[{"Options", "[", "LerchPhi", "]"}], "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"DoublyInfinite", "\[Rule]", "False"}], ",", 
           RowBox[{"IncludeSingularTerm", "\[Rule]", "False"}]}], "}"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition["LerchPhi"],
  Editable->False]], "Print",
 CellChangeTimes->{3.3947981267085752`*^9},
 CellTags->"Info3394772926-6209427"]
}, Open  ]]
}, Open  ]],

Cell["\<\
we get more detailed information\[LongDash]some of it pretty cryptic. But\
\[LongDash]backing up to our starting point\[LongDash]if in \
\>", "Text"],

Cell[BoxData[
 RowBox[{"LerchPhi", "[", 
  RowBox[{"x", ",", "\[Nu]", ",", "u"}], "]"}]], "Output"],

Cell[TextData[{
 "we ",
 StyleBox["Select",
  FontWeight->"Bold"],
 " the output (select only the ",
 StyleBox["LerchPhi", "Output"],
 "; leave out the ",
 StyleBox["[x,\[Nu],u]", "Output"],
 ") and then open ",
 StyleBox["Help > Find Selected Function\[Ellipsis] ",
  FontWeight->"Bold"],
 "we are instantly led to a notebook that provides a detailed description of \
the \"Lerch transcendent\" and of its relation to (among others) the Riemann \
zeta and polylog functions. "
}], "Text",
 CellChangeTimes->{{3.394804969423312*^9, 3.394804978371689*^9}, 
   3.394805011898033*^9}],

Cell[TextData[{
 "Under TUTORIALS (near the bottom of the page), open and explore the link to \
the very valuable ",
 StyleBox["Special Functions",
  FontColor->RGBColor[0, 0, 1]],
 " notebook."
}], "Text",
 CellChangeTimes->{{3.394805868388329*^9, 3.39480587377155*^9}, {
  3.395923935802503*^9, 3.39592394991999*^9}}],

Cell["", "Text",
 CellChangeTimes->{{3.39480587709713*^9, 3.394805932115736*^9}, {
  3.39592396812307*^9, 3.395923979591449*^9}}],

Cell[TextData[{
 "Distinct from ",
 StyleBox["Information", "Input"],
 " is ",
 StyleBox["Options", "Input"],
 ". We will ask ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " itself to describe the difference:"
}], "Text",
 CellChangeTimes->{{3.39480587709713*^9, 3.394805932115736*^9}, {
  3.39592396812307*^9, 3.395923979582308*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"?", "Information"}], "\[IndentingNewLine]", 
 RowBox[{"?", "Options"}]}], "Input",
 CellChangeTimes->{{3.3948059530623827`*^9, 3.3948059912665367`*^9}},
 TextAlignment->Left,
 TextJustification->1.],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Information\\\", \\\"[\\\", \
StyleBox[\\\"symbol\\\", \\\"TI\\\"], \\\"]\\\"}]\\) prints information about \
a symbol. \"\>", "MSG"], " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Information"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.394805997727194*^9},
 CellTags->"Info3394780796-9401402"],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\!\(\*RowBox[{\\\"Options\\\", \\\"[\\\", StyleBox[\\\"symbol\
\\\", \\\"TI\\\"], \\\"]\\\"}]\) gives the list of default options assigned \
to a symbol. \\n\!\(\*RowBox[{\\\"Options\\\", \\\"[\\\", StyleBox[\\\"expr\\\
\", \\\"TI\\\"], \\\"]\\\"}]\) gives the options explicitly specified in a \
particular expression such as a graphics object. \\n\!\(\*RowBox[{\\\"Options\
\\\", \\\"[\\\", StyleBox[\\\"stream\\\", \\\"TI\\\"], \\\"]\\\"}]\) or \
\!\(\*RowBox[{\\\"Options\\\", \\\"[\\\", \
StyleBox[\\\"\\\\\\\"\\\\!\\\\(\\\\*StyleBox[\\\\\\\"sname\\\\\\\",\\\\\\\"TI\
\\\\\\\"]\\\\)\\\\\\\"\\\", ShowStringCharacters->True], \\\"]\\\"}]\) gives \
options associated with a particular stream. \
\\n\!\(\*RowBox[{\\\"Options\\\", \\\"[\\\", StyleBox[\\\"object\\\", \
\\\"TI\\\"], \\\"]\\\"}]\) gives options associated with an external object \
such as a NotebookObject. \\n\!\(\*RowBox[{\\\"Options\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"obj\\\", \\\"TI\\\"], \\\",\\\", StyleBox[\\\"name\\\", \
\\\"TI\\\"]}], \\\"]\\\"}]\) gives the setting for the option \!\(\*StyleBox[\
\\\"name\\\", \\\"TI\\\"]\). \\n\!\(\*RowBox[{\\\"Options\\\", \\\"[\\\", \
RowBox[{StyleBox[\\\"obj\\\", \\\"TI\\\"], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"name\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"name\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\
\"TR\\\"]}], \\\"}\\\"}]}], \\\"]\\\"}]\) gives a list of the settings for \
the options \!\(\*SubscriptBox[StyleBox[\\\"name\\\", \\\"TI\\\"], \
StyleBox[\\\"i\\\", \\\"TI\\\"]]\). \"\>", "MSG"], " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Options"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.394805998315421*^9},
 CellTags->"Info3394780797-1776688"]
}, Open  ]]
}, Open  ]],

Cell["\<\
Many things\[LongDash]graphics most notoriously\[LongDash]support lots of \
options. Suppose, for example, we perform\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt2Hk4VG3cB3C0WEolFEWhTRKhyNZ3eCpF2SotllAKKVuhJ6VFSotsSQuK
QkWSUB6EKEpSKCkV2WOOdeacGWPe+32v96/7+lzXzJx7+f2+97nG3tdd1UNE
RERMRER08v+O6/zX/KmTejXp/0cR2MQtMC7tXUJG5d6q+WexN/bbfu2nPDI2
K9n+VIFvbAHtKddJxtxmQdEVhMU+qAjf2ELGmPVC5+u4Fpu0LHZvExmtdIaS
2pASm9ii6GOPlBg78Xk7pyAnNiHPaTgGOVeDEy0Ri7JAcynLKmOUHcyquJHP
QbVfnpv1v36otiy78e0aF/WLxKI8XhzGR3b5UH3FCBrdMyQ39zSiUapldPGl
ITTvLhDhaF/C10oPU/0lbfjxoOx69Qp/fM+z8s9JeIXfR1qfHNrHwy+/qm32
rTZoPxBt61DijraDxvuPP09Fx8WyssahffizbJef1axQdEWk+xauuoKOghkn
b4x8Q8+/4QaFZWLoWi5icKylE32Jv+qsNGTQnXaFO12Tjf7YwTTzlE3o6f9j
ozJTAHZh2MZaai769HcdYrGHMOg1SbTo7S38dbqw59QLMQztVxGaKZugf9t9
vXs/vmL46MmOWb9XYIDVmGz4cBTDIUEVKt3WGFg/Xe7q9ocYDvW9u4rthwEL
sxIVxzYMh7s52Y4/x8DWjPtG09diOH59Y4yiCQb2OFe+nEJj+Pm0Khn7LRgI
DFy04vRiDI/cTJep9MHAfZZgsP8mRgLyPWdnZoMt4lJTWmGCkeBJZq+awsGe
5GQp28Zg5ITd/MNiTmBP3ZnseewCRs711711kgJ7ukWFnmYuRq4vXhM68wDY
CtKD1vOuY6QwTqwzSAVsbZ1CBYMOjIz7Jb34Jx5sx6YThvL3MRqxosH5ZyjY
T85WFosZY/SSR5KpxSjYT3tsJZLlMBqVclAp1wfsPKvCzSkRGL0xm/c93BHs
F9MVJtzPYDSDp7Zbwwjs8sDFsToURmuq/bcfY8BuaDFoaTuOMWmPmVbSQWBz
p+leTRnHmEzyN40gNtjMiv4sawuMyTenSf4m8+VbnnzOeGFswRb96jwHsIVn
Fg1IZWFMW89l4+41oMQbQ1v7FmDMTjTb7P4oKAVZlm93Ecbik63WmviD0h+U
ffJwOcYSr4XFHxEBtfZxTFnmUozdOZ03mBIFyshD486L7Ri7v0/podgjUKaf
syzYWzH2fBlbsbod1PqE/nN2dhhryI3m79gOyq5yc17RI3BmV34pPaIPyjv3
jUFgPjhzCqbNS6kE5bPq0JdzH8CZl4GgT/agDmcvXyDYB45aZKb26iOg/O72
2XwJBEfX+ngKLwNUkH947roMcOyalc5cUAB1pnBKk2E8ONF/3den8EAlfE59
L9gPznWdWFPuOlCJ2tJjK1aDczO4wsD6DKibkQaUpiQ4qZPVlgskQN3Rfzsi
4gBOnlL7zD3yoO4FNUV7NYPTZO3WIrcK1ONLsc4GCeB8i49pOBQIKqvi127v
AXBaW8prKwpAZdO9TyIkwOk6qPrK3xTUUxf9aUp/weGGtd2vswSVL/1YM0QD
XMVcN9+LHqBKhKNXGr6Dq8yN8fyVCeqVnPTsniRw1UzL3fX7QZUtaUtb/xpc
jXeq2zsDQFWYl8Z/LgbXuL3NyPw0qDduG1JtpcF1kXObPH4LVJ1OyDLJH+Cm
Brve8qsH9UN5bLfWPnDTj/JnRWsQfxeu0SR+FHA9IuccqNZE6QfJK8F9dvhd
AJucxy+ptfI6u8Ct2L/a6lASqLYv5ZRVFrjtduLjB7xBdc9Koe9ogttlnRpw
npxX95OBTvl+cPu2mPQ8UAbVY4WXaU3gDlv4N/4hz+89yR7VnwFazPR7tpsB
qL/v/03P6watppHj4jQZ1KA4FjdcBr1UfXPjCRfi82831XFBayzpsLxVCGpI
zL56ngloXVVF/W/k+UNjgS8rXEGbzz030+ETqJHXPxL1fEFvlFc+H0TWN6p7
qvJRImjL2YX86+HEKYtl+s+Btpfu725cC2osIHikOxi0+2SHMrtkUFzR9Sob
M0AfEB3S96OJ907ceT0ftJfwclY0qT9ucbG4rxZof15Z4scpoGg/RLtbgD4z
pOG/xQcU88rzC+cf0OfZld2H3oDizTDS2C4HOrJ/r/PlhcSOM8x0VEHHdMdv
rvlMzC5N974F+l7rhJqFISj+BOobyfMfvL34Lm01qHFjyrf2JOiHubIBQi3i
4PxTBctA54arvy5UI+4N/7nqMej8w3k+skqgBAujlo1Eg365c52c7xzibdmN
0x1Bl2ts81g2jbhg1cbOYtBVsj+lz00l7ogTr7gEulrgmf+L9POEzPSFK5+D
rq8/NTWB9P/EfjOL5bGgG4skngyziS8J7MsKQTenxe207iHO+fhoRB7076DM
zKmtxCOFa0N8QHe46tm6N4MSzq71Kp4JumdzCV1K1ivU5v4KXQe6X2/TvXm1
xFaGN3hnQQ8qNWwOIvsl3B8Tc52sZ3Sq89DnMuITwnc1n0BzqZ5bWkXEMeHm
q7aB5n8LNL/0nPjBAk7Yd9DCCkFfVw5xwceuK7vATMq6GGdO8kf45oaMhRgY
8QRZ4+T7xI1Hj5U6gZkWlvSHR85b+NtTdsFKMDO91K84JBL3+ffkXAIja5+3
+lks8XDMWPM7MHNNTFtnXCGmq42U48DMX1J93juCWCCXv+AjmIUzt618Q/JD
KAw+cCsPjBrd+kUt9H89aO1TBGZpu+epU0HEE2E+V7PAaLwfWdriR8xfXC6b
AEYr/+RHfVLPwrHfW3TqwOimSATH7idmP5uxdgSM/sW4hWzSD8LOW+IJFBij
AOVqy13ELYlrvwyBWeeY6Ze+jfhDVuq9ADDmG/QUxayJS79uKNYDs1GrpNxl
E/EThUVSAGOpsMmryJz4tq/x5V4w1qINs+eYEEf8iHapAWP317kogPS/0M9V
raQKzI7GHvc6knfCncyo6FQwzhmCvIglxKp+u5f5gnGLuejYrkI8acvg1h1g
PE7ITl43j9TDH9T+mABz2Fp9O2cGcZKni6gGGH+DZwJ7kq8TwclzKh6COaZq
+uCJGLFNn7JFB5jQUXuOB5fUJ69K2ZDs9+nW1uTyYeIP2+eXmIIJf+tpoUzy
UJDEBOjNAHPl1skbTb+JDS/oetwGc4eVabihhvTH7hwHVxrM3TCtU29DiOfm
+fldA3O/5HnlZnXSbw3Bbhyyn9lG5TZbyHny16/7WaUNpnR1i8e29aQ/pWo/
fvoPTEWg66NG0g9MQf3qzi4wb3K7Bh3SiF3j7myWA/NRa+TEHjJ/OnvPJe9C
ML+XT49xJfXLXdF7Y9wMTMfB2C/t5Lw5VQMVWzlgetIVlfaTPOA4P1vUUwtm
aNGSjIOnSB5FnHgU8gY8MeV1JUfIeYyUzL6zUx68xTJ+vSdI/lGlO+2TzoOn
bsPVEhwgXu1eZLoUPM2ok0fDSL+zM7XaTvSBt2ZapPDsUVADkZIJx8jnN05J
k4/UJXmrXfMiUgDeQabJLOEJqC6ZU9vOS4Dns9bxggKpr859t7KP8sHzC2qr
vSUNqiMvJLhxOXghI+ydSSTf/mwJuXb7HXiRbPHD90m+/t53ZdWmDvAetxve
zH0AqmXp9Pbjz8DLadZw5JN6/ubu2HS0Bry8uvkLNpD6ab5TqP6RfP+/l+Op
zcWgvk6LU9UXB+99zKvHwgZQDZ/a8jz/gvfXbEOptSioDyIdCePV4GvctWvv
cyb3Y0/bYZHl4GslmD9YTfKvuOuL3qcD4Ote0Tt4kuTRf+3fFD8JwDcKkeuX
Iet/2SR5zvAp+JY2X8fWXib3beqcGKPT4HsJXcQjXpL7+uegxhs++A9dvDUX
kfv9ZoeS4mUL8LMfOlyOjSbvB5FS6mba4OeOmv8VkwJ1Y0WuMMgf/KJL8x+2
kbyM99b2WeAK/vv8D8uSST1Gve+QqHkBPlt61aJ55D48p2alqSKBcd3/OPNm
k/l4z6+PU1PGuMHU9uNnKFCeISviaSmMG9vVNQ+R/Trw+Z+mSSYY/6c740a9
K6h9YVmRTh0Y3yG7Wz5qCyinV+4Lcw9jPNi7WEZqESjrz8f9pt/BeLHiWQlR
kq86m0yi3hlgvMzW5WY2yWttj9D0/xiMV14wXrFHEtTK07HtVToYrx0dtX7G
ArX8qfnWJjuMt9YfuO5O6kF17GmGw26MCy9Yqb0m+zVbofeewhoIzMfkTM+v
B3uw/M0O3XkQ1NSnB0rkg53x4Bhr71UIPpQOnAntAvvBPvV4yc8QfMpefW1I
Aey0hWL7O49B8C2yIusbef9NjtGQcmqHoNf8Z9cj8nvX925FmQgmJPLn7rH6
DPbZNLGrCbWYsLh50SxqkLw/16g7tL7ARJW79yx5TbAlEosqKV0Iv+jJcaIo
DBg7V62sMmKJePtqX7iwCP3Onw7YatexRLrNW77vacdfr33zC4STWaJH8pmG
zk3oM39uFkR5sUQH5nh6BISgV97w6Mn8WpZY0BzL2wXW6H7WmCYqMsIS40wK
9R5no8tmr8khi3DWpMAjz898vYeO1nW9Nht3sCbxj7uaevLwZ41mu8peHdbk
f/0dYwTKaLv+toe+fZ41ZbLEu8sWXfh12qagy6aTNeXyAtQufY3vFeUf/tWf
zJoqqTo5XcIbzctjQv/4tLKmxrw2XXy3EI3qbu865yuyxGXsq0yM61DvcDTR
uTidJR7luu22N42amdzehY2OLIk50jtSbKtR9ixTKTA3miURn5FhYuiO3PSf
vG5uPUtSuc3nZHMqXA8mu7nkvyEeauBFaMJ1qUjwklgjluQCMeNgvQLsra5S
tJORI14k5Rf1Hi4VWw/XKT0m3p+5b/0onPJdZtWEnSDu7tiUuxG7boexMpd8
ZUkuZDvJRvbB9mD5zvkXfIknXkcbHIVNjdTfl/dFWZIqM1dM75iAdUWcekHc
GWJt3lSWLLbkp91blTNO7H+D5phg0+3KK8l/fIhHG366R4HlOdVOPZFiSapO
MXacpYB1r5VnZW1UJJZP/VqSCpOClacixKYS6/t/UijE2jvWu75+eE4cMvN1
3W+s8oyW6CqJJr4YzAr1hmYhq8d2aC5x4s+S5aNQT3IrdXzoTfwyu4DknopX
mpdVSwrxO3k93VgopFwMzbh7irglNOe3EmYderfUdhKZn2pfh+bVdIj4zU05
kB9FzLd6aKzzf/8XXNXR+h9kH3IG
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{0, Pi}, {0., 0.9999999707682925}}, {{0, 3.141592653589793}, {0., 
     0.9999999707682925}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.394806051709342*^9}]
}, Open  ]],

Cell["\<\
and then become curious about the options which were available to us; to \
discover those, we enter\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "Plot", "]"}]], "Input",
 CellChangeTimes->{{3.39480610920853*^9, 3.39480611559216*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"AlignmentPoint", "\[Rule]", "Center"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", 
    FractionBox["1", "GoldenRatio"]}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"Background", "\[Rule]", "None"}], ",", 
   RowBox[{"BaselinePosition", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"ClippingStyle", "\[Rule]", "None"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ColorFunctionScaling", "\[Rule]", "True"}], ",", 
   RowBox[{"ColorOutput", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ContentSelectable", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"DisplayFunction", "\[RuleDelayed]", "$DisplayFunction"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"Evaluated", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"EvaluationMonitor", "\[Rule]", "None"}], ",", 
   RowBox[{"Exclusions", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ExclusionsStyle", "\[Rule]", "None"}], ",", 
   RowBox[{"Filling", "\[Rule]", "None"}], ",", 
   RowBox[{"FillingStyle", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"FormatType", "\[RuleDelayed]", "TraditionalForm"}], ",", 
   RowBox[{"Frame", "\[Rule]", "False"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"FrameTicks", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"FrameTicksStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"GridLines", "\[Rule]", "None"}], ",", 
   RowBox[{"GridLinesStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"ImageMargins", "\[Rule]", "0.`"}], ",", 
   RowBox[{"ImagePadding", "\[Rule]", "All"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
   RowBox[{"MeshFunctions", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"#1", "&"}], "}"}]}], ",", 
   RowBox[{"MeshShading", "\[Rule]", "None"}], ",", 
   RowBox[{"MeshStyle", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Method", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PerformanceGoal", "\[RuleDelayed]", "$PerformanceGoal"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Full", ",", "Automatic"}], "}"}]}], ",", 
   RowBox[{"PlotRangeClipping", "\[Rule]", "True"}], ",", 
   RowBox[{"PlotRangePadding", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotRegion", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"PreserveImageOptions", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"Prolog", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"RegionFunction", "\[Rule]", 
    RowBox[{"(", 
     RowBox[{"True", "&"}], ")"}]}], ",", 
   RowBox[{"RotateLabel", "\[Rule]", "True"}], ",", 
   RowBox[{"Ticks", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"TicksStyle", "\[Rule]", 
    RowBox[{"{", "}"}]}], ",", 
   RowBox[{"WorkingPrecision", "\[Rule]", "MachinePrecision"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.394806117136713*^9}]
}, Open  ]],

Cell[TextData[{
 "What to do with such information? Again, ",
 StyleBox["ask ",
  FontVariations->{"Underline"->True}],
 StyleBox["Mathematica",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True}],
 ". Which, for example, about the ",
 StyleBox["AlignmentPoint", "Input"],
 " option has this to say:"
}], "Text",
 CellChangeTimes->{{3.3959240562775*^9, 3.395924140482459*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Information", "[", "AlignmentPoint", "]"}]], "Input",
 CellChangeTimes->{{3.395924192080106*^9, 3.39592420280667*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"AlignmentPoint is an option which specifies how objects \
should by default be aligned when they appear in Inset.\"\>", "MSG"], " ", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/AlignmentPoint"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.39592420841778*^9},
 CellTags->"Info3395899007-4752452"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     RowBox[{
      RowBox[{"Attributes", "[", "AlignmentPoint", "]"}], "=", 
      RowBox[{"{", "Protected", "}"}]}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition["AlignmentPoint"],
  Editable->False]], "Print",
 CellChangeTimes->{3.395924208505515*^9},
 CellTags->"Info3395899007-4752452"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "Here as always, if you follow the ",
 StyleBox["\[RightSkeleton]",
  FontColor->RGBColor[0, 0, 1]],
 " you will be led to detailed discussion and examples."
}], "Text",
 CellChangeTimes->{{3.3959241856367826`*^9, 3.3959241868268843`*^9}, {
  3.395924244221796*^9, 3.3959242795889587`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Your Own \"My Tricks\" Notebook",
 FontColor->RGBColor[1, 0, 0]]], "Subsection",
 CellChangeTimes->{{3.394806345215577*^9, 3.394806359927826*^9}}],

Cell[TextData[{
 "I mention finally an undocumentable resource which will in time become the \
most valuable of all. Experience is problem-solving, in this sphere as in all \
others.  When ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " has presented difficulties which you have finally overcome (it will, and \
you will), ",
 StyleBox["take the time to record your success in a dedicated notebook",
  FontColor->RGBColor[0, 0, 1]],
 ". You will then never again have to solve that particular problem, and can \
use your former success as a ",
 StyleBox["Copy/Paste ",
  FontWeight->"Bold"],
 "template. For your"
}], "Text"],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"Mathematica", " ", "power"}], "=", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"t", "=", "today"}], "tomorrow"], 
    RowBox[{"Problems", " ", "successfully", " ", "solved"}]}]}],
  FontColor->GrayLevel[0.500008]]], "Input",
 CellChangeTimes->{{3.3948064391555653`*^9, 3.394806441029306*^9}}],

Cell["\<\
And don't be too proud to save also\[LongDash]perhaps in a separate notebook \
of  \"Stolen Tricks\"\[LongDash]a record of the ideas developed by others \
that seem to you interesting, or potentially useful. Quite a number of those \
will be encountered as  we proceed.\
\>", "Text",
 CellChangeTimes->{{3.3948065146808023`*^9, 3.3948065201457653`*^9}}],

Cell[TextData[{
 "\tSometimes your \"tricks\" will consist of programs that run a dozen or \
more lines (",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " programs are seldom ",
 StyleBox["very",
  FontSlant->"Italic"],
 " long; that heavy work was done by the designers of the software), but more \
often they will consist of felicitous selections from among available \
options. The value of your Tricks Notebooks will be much increased if you ",
 StyleBox["include explanatory text and references",
  FontColor->RGBColor[0, 0, 1]],
 "\[LongDash]easy if you open ",
 StyleBox["Window > Show Toolbar",
  FontWeight->"Bold"],
 ". Notice also that you need not add to the ",
 StyleBox["end",
  FontSlant->"Italic"],
 " of your notebook: you can ",
 StyleBox["introduce new material interstitially",
  FontColor->RGBColor[0, 0, 1]],
 ", in conformity with some organizational pattern, with categories labled \
with appropriate ",
 StyleBox["Section",
  FontWeight->"Bold"],
 " titles."
}], "Text",
 CellChangeTimes->{{3.3948067787944202`*^9, 3.394806789057682*^9}}],

Cell[TextData[{
 "\tUse ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "'s ",
 StyleBox["Edit > Find",
  FontWeight->"Bold"],
 " command, or OSX's Spotlight, to locate material in your notebooks.  The \
task is made easier if you embellish your notebooks with appropriate tag \
words and phrases. "
}], "Text",
 CellChangeTimes->{{3.394806609249713*^9, 3.394806628990348*^9}}],

Cell[" ", "Text",
 CellChangeTimes->{3.394806584063426*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Memory Management", "Section",
 CellChangeTimes->{{3.394806819864229*^9, 3.394806828303873*^9}}],

Cell[TextData[{
 "\nIf you have interest in how much memory you have used in this work \
session (prior to the development of OSX that was always a critical \
consideration, since ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " tends to consume lots of memory, and in pre-OSX days memory management was \
not automatic), command"
}], "Text",
 CellChangeTimes->{{3.3948068719708157`*^9, 3.3948069118086*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MaxMemoryUsed", "[", "]"}]], "Input",
 CellChangeTimes->{{3.394806670332918*^9, 3.394806678886332*^9}}],

Cell[BoxData["9515416"], "Output",
 CellChangeTimes->{3.394806955339512*^9, 3.395924377530384*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{844, 672},
WindowMargins->{{Automatic, 385}, {Automatic, 1}},
ShowSelection->True,
Magnification->1.25,
FrontEndVersion->"6.0 for Mac OS X PowerPC (32-bit) (June 19, 2007)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[
    StyleDefinitions -> 
     FrontEnd`FileName[{"Book"}, "Textbook.nb", CharacterEncoding -> 
       "UTF-8"]]]}, Visible -> False, FrontEndVersion -> 
  "6.0 for Mac OS X PowerPC (32-bit) (June 19, 2007)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3395752844-3533612"->{
  Cell[24947, 649, 601, 14, 69, "Print",
   CellTags->"Info3395752844-3533612"]},
 "Info3394730336-2575758"->{
  Cell[156810, 3573, 1545, 27, 107, "Print",
   CellTags->"Info3394730336-2575758"]},
 "Info3394730337-9457246"->{
  Cell[158358, 3602, 755, 15, 69, "Print",
   CellTags->"Info3394730337-9457246"]},
 "Info3394730337-6085780"->{
  Cell[159116, 3619, 515, 12, 50, "Print",
   CellTags->"Info3394730337-6085780"]},
 "Info3394734747-7247722"->{
  Cell[270435, 5837, 1900, 31, 107, "Print",
   CellTags->"Info3394734747-7247722"]},
 "Info3394735255-1292831"->{
  Cell[283052, 6110, 1013, 19, 88, "Print",
   CellTags->"Info3394735255-1292831"]},
 "Info3394738062-2405879"->{
  Cell[383163, 7966, 1358, 23, 90, "Print",
   CellTags->"Info3394738062-2405879"]},
 "Info3394739824-6564964"->{
  Cell[386366, 8056, 118, 2, 48, "Print",
   CellTags->"Info3394739824-6564964"],
  Cell[386487, 8060, 1094, 33, 70, "Print",
   CellTags->"Info3394739824-6564964"]},
 "Info3394771153-4685404"->{
  Cell[392413, 8255, 1288, 23, 89, "Print",
   CellTags->"Info3394771153-4685404"]},
 "Info3395739510-6287617"->{
  Cell[401314, 8518, 723, 15, 69, "Print",
   CellTags->"Info3395739510-6287617"]},
 "Info3394772873-5908731"->{
  Cell[408439, 8725, 758, 15, 50, "Print",
   CellTags->"Info3394772873-5908731"]},
 "Info3394772896-3192917"->{
  Cell[409385, 8752, 758, 15, 50, "Print",
   CellTags->"Info3394772896-3192917"],
  Cell[410146, 8769, 1191, 34, 62, "Print",
   CellTags->"Info3394772896-3192917"]},
 "Info3394772926-6209427"->{
  Cell[411584, 8817, 758, 15, 50, "Print",
   CellTags->"Info3394772926-6209427"],
  Cell[412345, 8834, 1193, 34, 62, "Print",
   CellTags->"Info3394772926-6209427"]},
 "Info3394780796-9401402"->{
  Cell[415481, 8937, 439, 11, 50, "Print",
   CellTags->"Info3394780796-9401402"]},
 "Info3394780797-1776688"->{
  Cell[415923, 8950, 1941, 31, 164, "Print",
   CellTags->"Info3394780797-1776688"]},
 "Info3395899007-4752452"->{
  Cell[428372, 9213, 413, 10, 69, "Print",
   CellTags->"Info3395899007-4752452"],
  Cell[428788, 9225, 482, 14, 25, "Print",
   CellTags->"Info3395899007-4752452"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3395752844-3533612", 434210, 9391},
 {"Info3394730336-2575758", 434321, 9394},
 {"Info3394730337-9457246", 434436, 9397},
 {"Info3394730337-6085780", 434549, 9400},
 {"Info3394734747-7247722", 434662, 9403},
 {"Info3394735255-1292831", 434777, 9406},
 {"Info3394738062-2405879", 434891, 9409},
 {"Info3394739824-6564964", 435005, 9412},
 {"Info3394771153-4685404", 435201, 9417},
 {"Info3395739510-6287617", 435315, 9420},
 {"Info3394772873-5908731", 435428, 9423},
 {"Info3394772896-3192917", 435541, 9426},
 {"Info3394772926-6209427", 435738, 9431},
 {"Info3394780796-9401402", 435935, 9436},
 {"Info3394780797-1776688", 436048, 9439},
 {"Info3395899007-4752452", 436163, 9442}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 267, 8, 154, "Title"],
Cell[860, 33, 199, 3, 57, "Subtitle"],
Cell[1062, 38, 99, 1, 57, "Subtitle"],
Cell[CellGroupData[{
Cell[1186, 43, 101, 1, 45, "Author"],
Cell[1290, 46, 153, 2, 15, "Institution"]
}, Open  ]],
Cell[1458, 51, 82, 1, 25, "Text"],
Cell[1543, 54, 82, 1, 25, "Text"],
Cell[1628, 57, 966, 22, 82, "Text"],
Cell[2597, 81, 961, 18, 63, "Text"],
Cell[3561, 101, 84, 1, 25, "Text"],
Cell[3648, 104, 16, 0, 25, "Text"],
Cell[CellGroupData[{
Cell[3689, 108, 149, 2, 57, "Subtitle"],
Cell[CellGroupData[{
Cell[3863, 114, 109, 5, 67, "Section"],
Cell[3975, 121, 867, 15, 119, "Text"],
Cell[4845, 138, 1271, 26, 157, "Text"],
Cell[6119, 166, 1032, 20, 138, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7188, 191, 146, 3, 67, "Section"],
Cell[7337, 196, 395, 12, 44, "Text"],
Cell[7735, 210, 251, 5, 30, "Text"],
Cell[7989, 217, 268, 8, 25, "Text"],
Cell[8260, 227, 60, 1, 25, "Text"],
Cell[CellGroupData[{
Cell[8345, 232, 312, 5, 17, "Item1Paragraph"],
Cell[8660, 239, 106, 1, 17, "Item1Paragraph"],
Cell[8769, 242, 991, 18, 82, "Item1Paragraph"],
Cell[9763, 262, 68, 1, 17, "Item1Paragraph"]
}, Open  ]],
Cell[9846, 266, 581, 14, 63, "Text"],
Cell[CellGroupData[{
Cell[10452, 284, 140, 3, 33, "Input"],
Cell[10595, 289, 167, 4, 33, "Output"],
Cell[10765, 295, 453, 12, 34, "Item1Paragraph"]
}, Open  ]],
Cell[11233, 310, 515, 12, 63, "Text"],
Cell[11751, 324, 176, 6, 25, "Text"],
Cell[CellGroupData[{
Cell[11952, 334, 91, 2, 33, "Input"],
Cell[12046, 338, 2804, 38, 737, "Output"]
}, Closed]],
Cell[14865, 379, 82, 1, 22, "Text"],
Cell[14950, 382, 553, 16, 63, "Text"],
Cell[15506, 400, 84, 1, 25, "Text"],
Cell[CellGroupData[{
Cell[15615, 405, 273, 6, 33, "Input"],
Cell[15891, 413, 8116, 204, 982, "Output"]
}, Open  ]],
Cell[24022, 620, 735, 20, 63, "Text"],
Cell[CellGroupData[{
Cell[24782, 644, 162, 3, 33, "Input"],
Cell[24947, 649, 601, 14, 69, "Print",
 CellTags->"Info3395752844-3533612"]
}, Open  ]],
Cell[25563, 666, 319, 8, 25, "Text"],
Cell[25885, 676, 81, 1, 25, "Text"],
Cell[25969, 679, 1309, 22, 82, "Text"],
Cell[27281, 703, 502, 16, 56, "Input"],
Cell[CellGroupData[{
Cell[27808, 723, 405, 11, 53, "Input"],
Cell[28216, 736, 60509, 998, 273, "Output"]
}, Open  ]],
Cell[88740, 1737, 248, 6, 25, "Text"],
Cell[88991, 1745, 84, 1, 25, "Text"],
Cell[89078, 1748, 16, 0, 25, "Text"],
Cell[CellGroupData[{
Cell[89119, 1752, 228, 3, 38, "Subsection"],
Cell[89350, 1757, 114, 2, 25, "Text"],
Cell[89467, 1761, 659, 16, 82, "Text"],
Cell[90129, 1779, 246, 8, 25, "Text"],
Cell[90378, 1789, 523, 14, 63, "Text"],
Cell[90904, 1805, 346, 8, 44, "Text"],
Cell[91253, 1815, 160, 2, 25, "Text"],
Cell[91416, 1819, 84, 1, 25, "Text"],
Cell[91503, 1822, 360, 14, 25, "Text"],
Cell[91866, 1838, 258, 8, 44, "Text"],
Cell[92127, 1848, 401, 18, 25, "Text"],
Cell[92531, 1868, 490, 11, 44, "Text"],
Cell[93024, 1881, 256, 10, 32, "Text"],
Cell[93283, 1893, 446, 9, 44, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[93778, 1908, 96, 1, 67, "Section"],
Cell[93877, 1911, 578, 20, 44, "Text"],
Cell[94458, 1933, 714, 16, 63, "Text"],
Cell[95175, 1951, 1096, 25, 82, "Text"],
Cell[96274, 1978, 443, 11, 44, "Text"],
Cell[96720, 1991, 16, 0, 25, "Text"],
Cell[CellGroupData[{
Cell[96761, 1995, 675, 18, 50, "Item1Paragraph"],
Cell[97439, 2015, 26, 0, 17, "Item1Paragraph"],
Cell[97468, 2017, 402, 11, 17, "Item1Paragraph"],
Cell[97873, 2030, 26, 0, 17, "Item1Paragraph"],
Cell[97902, 2032, 310, 7, 17, "Item1Paragraph"],
Cell[98215, 2041, 26, 0, 17, "Item1Paragraph"],
Cell[98244, 2043, 648, 17, 50, "Item1Paragraph"]
}, Open  ]],
Cell[98907, 2063, 81, 1, 25, "Text"],
Cell[98991, 2066, 377, 10, 44, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99405, 2081, 201, 3, 67, "Section"],
Cell[99609, 2086, 209, 5, 63, "Text"],
Cell[99821, 2093, 358, 14, 25, "Text"],
Cell[100182, 2109, 517, 18, 25, "Text"],
Cell[100702, 2129, 748, 21, 82, "Text"],
Cell[101453, 2152, 503, 20, 25, "Text"],
Cell[101959, 2174, 555, 19, 44, "Text"],
Cell[102517, 2195, 576, 19, 44, "Text"],
Cell[CellGroupData[{
Cell[103118, 2218, 239, 9, 33, "Input"],
Cell[103360, 2229, 625, 18, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[104022, 2252, 249, 4, 38, "Subsection"],
Cell[104274, 2258, 587, 19, 57, "Text"],
Cell[CellGroupData[{
Cell[104886, 2281, 255, 8, 33, "Input"],
Cell[105144, 2291, 167, 5, 54, "Output"]
}, Open  ]],
Cell[105326, 2299, 531, 9, 63, "Text"],
Cell[CellGroupData[{
Cell[105882, 2312, 234, 6, 33, "Input"],
Cell[106119, 2320, 18902, 315, 297, "Output"]
}, Open  ]],
Cell[125036, 2638, 1285, 34, 113, "Text"],
Cell[CellGroupData[{
Cell[126346, 2676, 244, 7, 55, "Input"],
Cell[126593, 2685, 167, 5, 54, "Output"]
}, Open  ]],
Cell[126775, 2693, 281, 6, 63, "Text"],
Cell[127059, 2701, 1560, 32, 138, "Text"],
Cell[128622, 2735, 82, 1, 25, "Text"],
Cell[128707, 2738, 16, 0, 25, "Text"],
Cell[128726, 2740, 1349, 36, 89, "Text"],
Cell[130078, 2778, 254, 6, 54, "Input"],
Cell[130335, 2786, 199, 4, 25, "Text"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[130607, 2798, 207, 6, 152, "Title"],
Cell[130817, 2806, 940, 24, 82, "Text"],
Cell[131760, 2832, 176, 5, 54, "Input"],
Cell[131939, 2839, 149, 2, 25, "Text"],
Cell[132091, 2843, 273, 7, 54, "Input"],
Cell[132367, 2852, 724, 19, 44, "Text"],
Cell[133094, 2873, 254, 6, 54, "Input"],
Cell[133351, 2881, 83, 1, 25, "Text"],
Cell[133437, 2884, 16, 0, 25, "Text"],
Cell[133456, 2886, 585, 11, 44, "Text"],
Cell[134044, 2899, 223, 6, 38, "Input"],
Cell[134270, 2907, 481, 15, 32, "Text"],
Cell[134754, 2924, 328, 10, 54, "Input"],
Cell[135085, 2936, 182, 5, 25, "Text"],
Cell[CellGroupData[{
Cell[135292, 2945, 259, 8, 54, "Input"],
Cell[135554, 2955, 168, 5, 57, "Output"]
}, Open  ]],
Cell[135737, 2963, 378, 12, 27, "Text"],
Cell[136118, 2977, 190, 7, 66, "Input"],
Cell[136311, 2986, 250, 8, 27, "Text"],
Cell[136564, 2996, 364, 12, 67, "Input"],
Cell[136931, 3010, 147, 3, 25, "Text"],
Cell[137081, 3015, 376, 12, 69, "Input"],
Cell[137460, 3029, 702, 15, 63, "Text"],
Cell[138165, 3046, 879, 15, 106, "Input"],
Cell[139047, 3063, 697, 26, 25, "Text"],
Cell[139747, 3091, 777, 15, 107, "Input"],
Cell[140527, 3108, 324, 6, 44, "Text"],
Cell[140854, 3116, 82, 1, 25, "Text"],
Cell[140939, 3119, 16, 0, 25, "Text"],
Cell[CellGroupData[{
Cell[140980, 3123, 232, 4, 38, "Subsection"],
Cell[141215, 3129, 1117, 25, 100, "Text"],
Cell[CellGroupData[{
Cell[142357, 3158, 160, 3, 33, "Input"],
Cell[142520, 3163, 161, 3, 33, "Output"]
}, Open  ]],
Cell[142696, 3169, 791, 18, 44, "Text"],
Cell[CellGroupData[{
Cell[143512, 3191, 223, 2, 17, "Item1Paragraph"],
Cell[143738, 3195, 182, 3, 17, "Item1Paragraph"],
Cell[143923, 3200, 267, 8, 17, "Item1Paragraph"]
}, Open  ]],
Cell[144205, 3211, 583, 10, 44, "Text"],
Cell[144791, 3223, 252, 7, 25, "Text"],
Cell[145046, 3232, 184, 4, 25, "Text"],
Cell[145233, 3238, 149, 3, 33, "Input"],
Cell[145385, 3243, 279, 5, 25, "Text"],
Cell[CellGroupData[{
Cell[145689, 3252, 146, 4, 40, "Input"],
Cell[145838, 3258, 156, 3, 33, "Output"]
}, Open  ]],
Cell[146009, 3264, 513, 9, 44, "Text"],
Cell[CellGroupData[{
Cell[146547, 3277, 146, 3, 33, "Input"],
Cell[146696, 3282, 226, 5, 33, "Output"]
}, Open  ]],
Cell[146937, 3290, 291, 10, 25, "Text"],
Cell[147231, 3302, 112, 2, 25, "Text"],
Cell[147346, 3306, 202, 5, 25, "Text"],
Cell[147551, 3313, 227, 3, 25, "Text"],
Cell[147781, 3318, 231, 3, 25, "Text"],
Cell[148015, 3323, 231, 3, 25, "Text"],
Cell[148249, 3328, 231, 3, 25, "Text"],
Cell[148483, 3333, 230, 3, 25, "Text"],
Cell[148716, 3338, 237, 3, 25, "Text"],
Cell[148956, 3343, 221, 5, 25, "Text"],
Cell[149180, 3350, 246, 6, 31, "Text"],
Cell[149429, 3358, 346, 9, 32, "Text"],
Cell[149778, 3369, 457, 11, 33, "Text"],
Cell[150238, 3382, 429, 11, 27, "Text"],
Cell[150670, 3395, 384, 10, 27, "Text"],
Cell[151057, 3407, 261, 7, 25, "Text"],
Cell[151321, 3416, 326, 9, 25, "Text"],
Cell[151650, 3427, 304, 8, 31, "Text"],
Cell[151957, 3437, 82, 1, 25, "Text"],
Cell[152042, 3440, 248, 7, 25, "Text"],
Cell[152293, 3449, 293, 3, 25, "Text"],
Cell[152589, 3454, 160, 2, 25, "Text"],
Cell[152752, 3458, 216, 2, 25, "Text"],
Cell[152971, 3462, 237, 3, 25, "Text"],
Cell[153211, 3467, 156, 2, 25, "Text"],
Cell[153370, 3471, 241, 7, 25, "Text"],
Cell[153614, 3480, 337, 8, 25, "Text"],
Cell[153954, 3490, 366, 8, 44, "Text"],
Cell[154323, 3500, 56, 1, 25, "Text"],
Cell[154382, 3503, 1924, 47, 63, "Text"],
Cell[156309, 3552, 58, 1, 25, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[156404, 3558, 111, 1, 67, "Section"],
Cell[156518, 3561, 36, 0, 25, "Text"],
Cell[CellGroupData[{
Cell[156579, 3565, 206, 4, 72, "Input"],
Cell[CellGroupData[{
Cell[156810, 3573, 1545, 27, 107, "Print",
 CellTags->"Info3394730336-2575758"],
Cell[158358, 3602, 755, 15, 69, "Print",
 CellTags->"Info3394730337-9457246"],
Cell[159116, 3619, 515, 12, 50, "Print",
 CellTags->"Info3394730337-6085780"]
}, Open  ]]
}, Open  ]],
Cell[159658, 3635, 63, 0, 25, "Text"],
Cell[CellGroupData[{
Cell[159746, 3639, 151, 2, 38, "Subsection"],
Cell[159900, 3643, 111, 4, 25, "Text"],
Cell[CellGroupData[{
Cell[160036, 3651, 49, 1, 33, "Input"],
Cell[160088, 3654, 70, 1, 33, "Output"]
}, Open  ]],
Cell[160173, 3658, 264, 10, 25, "Text"],
Cell[CellGroupData[{
Cell[160462, 3672, 49, 1, 33, "Input"],
Cell[160514, 3675, 93, 1, 33, "Output"]
}, Open  ]],
Cell[160622, 3679, 31, 0, 25, "Text"],
Cell[CellGroupData[{
Cell[160678, 3683, 79, 2, 33, "Input"],
Cell[160760, 3687, 123, 2, 33, "Output"]
}, Open  ]],
Cell[160898, 3692, 135, 7, 25, "Text"],
Cell[CellGroupData[{
Cell[161058, 3703, 253, 5, 59, "Input"],
Cell[161314, 3710, 198, 5, 38, "Output"],
Cell[161515, 3717, 172, 4, 38, "Output"]
}, Open  ]],
Cell[161702, 3724, 58, 1, 33, "Input"],
Cell[161763, 3727, 123, 2, 25, "Text"],
Cell[161889, 3731, 650, 19, 53, "Input"],
Cell[162542, 3752, 462, 16, 25, "Text"],
Cell[CellGroupData[{
Cell[163029, 3772, 57, 1, 33, "Input"],
Cell[163089, 3775, 42724, 706, 290, "Output"]
}, Open  ]],
Cell[205828, 4484, 98, 2, 25, "Text"],
Cell[CellGroupData[{
Cell[205951, 4490, 396, 11, 53, "Input"],
Cell[206350, 4503, 42722, 706, 290, "Output"]
}, Open  ]],
Cell[249087, 5212, 593, 16, 63, "Text"],
Cell[249683, 5230, 189, 6, 25, "Text"],
Cell[249875, 5238, 514, 15, 25, "Text"],
Cell[250392, 5255, 292, 14, 25, "Text"],
Cell[250687, 5271, 125, 1, 25, "Text"],
Cell[250815, 5274, 16, 0, 25, "Text"],
Cell[250834, 5276, 89, 2, 25, "Text"],
Cell[CellGroupData[{
Cell[250948, 5282, 160, 3, 72, "Input"],
Cell[251111, 5287, 70, 1, 33, "Output"],
Cell[251184, 5290, 75, 1, 33, "Output"],
Cell[251262, 5293, 74, 1, 33, "Output"]
}, Open  ]],
Cell[251351, 5297, 210, 4, 25, "Text"],
Cell[CellGroupData[{
Cell[251586, 5305, 791, 18, 91, "Input"],
Cell[252380, 5325, 134, 3, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[252551, 5333, 100, 2, 33, "Input"],
Cell[252654, 5337, 125, 3, 33, "Output"]
}, Open  ]],
Cell[252794, 5343, 16, 0, 25, "Text"],
Cell[252813, 5345, 380, 9, 44, "Text"],
Cell[253196, 5356, 115, 2, 33, "Input"],
Cell[253314, 5360, 191, 6, 25, "Text"],
Cell[253508, 5368, 82, 1, 25, "Text"],
Cell[253593, 5371, 16, 0, 25, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[253646, 5376, 182, 2, 38, "Subsection"],
Cell[253831, 5380, 32, 0, 25, "Text"],
Cell[CellGroupData[{
Cell[253888, 5384, 164, 4, 38, "Input"],
Cell[254055, 5390, 140, 3, 38, "Output"]
}, Open  ]],
Cell[254210, 5396, 308, 10, 44, "Text"],
Cell[CellGroupData[{
Cell[254543, 5410, 256, 6, 74, "Input"],
Cell[254802, 5418, 138, 3, 38, "Output"],
Cell[254943, 5423, 135, 3, 56, "Output"]
}, Open  ]],
Cell[255093, 5429, 126, 2, 33, "Input"],
Cell[255222, 5433, 310, 11, 25, "Text"],
Cell[255535, 5446, 243, 5, 38, "Input"],
Cell[255781, 5453, 603, 16, 63, "Text"],
Cell[CellGroupData[{
Cell[256409, 5473, 739, 21, 98, "Input"],
Cell[257151, 5496, 120, 2, 33, "Output"],
Cell[257274, 5500, 173, 4, 33, "Output"],
Cell[257450, 5506, 187, 5, 37, "Output"],
Cell[257640, 5513, 5608, 97, 297, "Output"]
}, Open  ]],
Cell[263263, 5613, 293, 8, 25, "Text"],
Cell[263559, 5623, 82, 1, 25, "Text"],
Cell[263644, 5626, 334, 8, 25, "Text"],
Cell[263981, 5636, 242, 8, 38, "Input"],
Cell[264226, 5646, 371, 13, 44, "Text"],
Cell[CellGroupData[{
Cell[264622, 5663, 155, 5, 33, "Input"],
Cell[264780, 5670, 128, 3, 38, "Output"]
}, Open  ]],
Cell[264923, 5676, 177, 4, 25, "Text"],
Cell[CellGroupData[{
Cell[265125, 5684, 133, 4, 33, "Input"],
Cell[265261, 5690, 93, 2, 38, "Output"]
}, Open  ]],
Cell[265369, 5695, 295, 9, 25, "Text"],
Cell[265667, 5706, 81, 1, 25, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[265785, 5712, 170, 2, 38, "Subsection"],
Cell[265958, 5716, 155, 3, 25, "Text"],
Cell[266116, 5721, 82, 1, 25, "Text"],
Cell[266201, 5724, 203, 5, 25, "Text"],
Cell[266407, 5731, 766, 22, 91, "Input"],
Cell[CellGroupData[{
Cell[267198, 5757, 191, 6, 33, "Input"],
Cell[267392, 5765, 2296, 44, 307, "Output"]
}, Open  ]],
Cell[269703, 5812, 273, 7, 25, "Text"],
Cell[269979, 5821, 86, 1, 25, "Text"],
Cell[270068, 5824, 219, 5, 25, "Text"],
Cell[CellGroupData[{
Cell[270312, 5833, 120, 2, 33, "Input"],
Cell[270435, 5837, 1900, 31, 107, "Print",
 CellTags->"Info3394734747-7247722"]
}, Open  ]],
Cell[272350, 5871, 113, 1, 25, "Text"],
Cell[272466, 5874, 693, 22, 33, "Input"],
Cell[CellGroupData[{
Cell[273184, 5900, 274, 7, 33, "Input"],
Cell[273461, 5909, 7582, 130, 307, "Output"]
}, Open  ]],
Cell[281058, 6042, 173, 5, 25, "Text"],
Cell[CellGroupData[{
Cell[281256, 6051, 179, 4, 33, "Input"],
Cell[281438, 6057, 998, 32, 107, "Output"]
}, Open  ]],
Cell[282451, 6092, 452, 10, 44, "Text"],
Cell[CellGroupData[{
Cell[282928, 6106, 121, 2, 33, "Input"],
Cell[283052, 6110, 1013, 19, 88, "Print",
 CellTags->"Info3394735255-1292831"]
}, Open  ]],
Cell[CellGroupData[{
Cell[284102, 6134, 593, 17, 53, "Input"],
Cell[284698, 6153, 3357, 56, 318, "Output"]
}, Open  ]],
Cell[288070, 6212, 81, 1, 25, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[288188, 6218, 203, 3, 38, "Subsection"],
Cell[288394, 6223, 929, 26, 63, "Text"],
Cell[CellGroupData[{
Cell[289348, 6253, 229, 5, 53, "Input"],
Cell[289580, 6260, 76, 1, 33, "Output"],
Cell[289659, 6263, 73, 1, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[289769, 6269, 256, 7, 42, "Input"],
Cell[290028, 6278, 532, 18, 53, "Output"]
}, Open  ]],
Cell[290575, 6299, 134, 1, 25, "Text"],
Cell[CellGroupData[{
Cell[290734, 6304, 122, 2, 33, "Input"],
Cell[290859, 6308, 316, 9, 33, "Output"]
}, Open  ]],
Cell[291190, 6320, 217, 5, 25, "Text"],
Cell[CellGroupData[{
Cell[291432, 6329, 132, 2, 33, "Input"],
Cell[291567, 6333, 87, 1, 33, "Output"]
}, Open  ]],
Cell[291669, 6337, 84, 1, 25, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[291790, 6343, 241, 4, 38, "Subsection"],
Cell[292034, 6349, 643, 19, 44, "Text"],
Cell[CellGroupData[{
Cell[292702, 6372, 175, 6, 38, "Input"],
Cell[292880, 6380, 73, 1, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[292990, 6386, 447, 14, 62, "Input"],
Cell[293440, 6402, 98, 1, 33, "Output"],
Cell[293541, 6405, 96, 1, 33, "Output"]
}, Open  ]],
Cell[293652, 6409, 210, 6, 25, "Text"],
Cell[293865, 6417, 80, 1, 25, "Text"],
Cell[293948, 6420, 368, 8, 44, "Text"],
Cell[294319, 6430, 16, 0, 25, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[294384, 6436, 115, 2, 67, "Section"],
Cell[294502, 6440, 836, 24, 63, "Text"],
Cell[295341, 6466, 205, 4, 25, "Text"],
Cell[295549, 6472, 187, 6, 55, "Input"],
Cell[295739, 6480, 158, 3, 25, "Text"],
Cell[CellGroupData[{
Cell[295922, 6487, 61, 1, 33, "Input"],
Cell[295986, 6490, 42848, 710, 97, "Output"]
}, Open  ]],
Cell[338849, 7203, 255, 6, 25, "Text"],
Cell[CellGroupData[{
Cell[339129, 7213, 57, 1, 33, "Input"],
Cell[339189, 7216, 42721, 706, 290, "Output"]
}, Open  ]],
Cell[381925, 7925, 1099, 33, 63, "Text"],
Cell[CellGroupData[{
Cell[383049, 7962, 111, 2, 33, "Input"],
Cell[383163, 7966, 1358, 23, 90, "Print",
 CellTags->"Info3394738062-2405879"]
}, Open  ]],
Cell[384536, 7992, 112, 1, 25, "Text"],
Cell[384651, 7995, 124, 2, 33, "Input"],
Cell[384778, 7999, 188, 5, 25, "Text"],
Cell[CellGroupData[{
Cell[384991, 8008, 71, 1, 33, "Input"],
Cell[385065, 8011, 70, 1, 33, "Output"]
}, Open  ]],
Cell[385150, 8015, 134, 1, 25, "Text"],
Cell[CellGroupData[{
Cell[385309, 8020, 123, 2, 33, "Input"],
Cell[385435, 8024, 382, 7, 26, "Message"],
Cell[385820, 8033, 100, 2, 33, "Output"]
}, Open  ]],
Cell[385935, 8038, 84, 1, 25, "Text"],
Cell[386022, 8041, 182, 5, 25, "Text"],
Cell[CellGroupData[{
Cell[386229, 8050, 112, 2, 33, "Input"],
Cell[CellGroupData[{
Cell[386366, 8056, 118, 2, 48, "Print",
 CellTags->"Info3394739824-6564964"],
Cell[386487, 8060, 1094, 33, 70, "Print",
 CellTags->"Info3394739824-6564964"]
}, Open  ]]
}, Open  ]],
Cell[387608, 8097, 301, 6, 25, "Text"],
Cell[387912, 8105, 124, 2, 33, "Input"],
Cell[388039, 8109, 291, 7, 25, "Text"],
Cell[CellGroupData[{
Cell[388355, 8120, 202, 4, 53, "Input"],
Cell[388560, 8126, 99, 2, 33, "Output"],
Cell[388662, 8130, 120, 3, 33, "Output"]
}, Open  ]],
Cell[388797, 8136, 370, 7, 44, "Text"],
Cell[389170, 8145, 412, 12, 62, "Input"],
Cell[389585, 8159, 110, 1, 25, "Text"],
Cell[CellGroupData[{
Cell[389720, 8164, 202, 4, 53, "Input"],
Cell[389925, 8170, 94, 2, 38, "Output"],
Cell[390022, 8174, 198, 6, 38, "Output"]
}, Open  ]],
Cell[390235, 8183, 96, 1, 25, "Text"],
Cell[390334, 8186, 125, 2, 33, "Input"],
Cell[390462, 8190, 124, 1, 25, "Text"],
Cell[CellGroupData[{
Cell[390611, 8195, 202, 4, 53, "Input"],
Cell[390816, 8201, 98, 2, 33, "Output"],
Cell[390917, 8205, 198, 6, 38, "Output"]
}, Open  ]],
Cell[391130, 8214, 498, 13, 44, "Text"],
Cell[391631, 8229, 472, 13, 44, "Text"],
Cell[392106, 8244, 158, 3, 25, "Text"],
Cell[CellGroupData[{
Cell[392289, 8251, 121, 2, 33, "Input"],
Cell[392413, 8255, 1288, 23, 89, "Print",
 CellTags->"Info3394771153-4685404"]
}, Open  ]],
Cell[CellGroupData[{
Cell[393738, 8283, 229, 3, 20, "Subsubsection"],
Cell[393970, 8288, 174, 2, 25, "Text"],
Cell[CellGroupData[{
Cell[394169, 8294, 150, 3, 33, "Input"],
Cell[394322, 8299, 85, 1, 33, "Output"]
}, Open  ]],
Cell[394422, 8303, 247, 7, 25, "Text"],
Cell[CellGroupData[{
Cell[394694, 8314, 146, 3, 33, "Input"],
Cell[394843, 8319, 420, 8, 29, "Message"]
}, Open  ]],
Cell[395278, 8330, 245, 3, 25, "Text"],
Cell[395526, 8335, 124, 2, 33, "Input"],
Cell[395653, 8339, 101, 1, 25, "Text"],
Cell[CellGroupData[{
Cell[395779, 8344, 114, 2, 33, "Input"],
Cell[395896, 8348, 107, 1, 33, "Output"]
}, Open  ]],
Cell[396018, 8352, 268, 9, 25, "Text"],
Cell[396289, 8363, 135, 3, 33, "Input"],
Cell[396427, 8368, 100, 1, 25, "Text"],
Cell[CellGroupData[{
Cell[396552, 8373, 48, 1, 33, "Input"],
Cell[396603, 8376, 91, 2, 33, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[396755, 8385, 107, 1, 67, "Section"],
Cell[CellGroupData[{
Cell[396887, 8390, 157, 2, 38, "Subsection"],
Cell[397047, 8394, 206, 6, 25, "Text"],
Cell[CellGroupData[{
Cell[397278, 8404, 972, 27, 50, "Item1Paragraph"],
Cell[398253, 8433, 571, 15, 50, "Item1Paragraph"]
}, Open  ]],
Cell[398839, 8451, 687, 15, 82, "Text"],
Cell[399529, 8468, 1231, 29, 63, "Text"],
Cell[400763, 8499, 84, 1, 25, "Text"],
Cell[400850, 8502, 318, 8, 25, "Text"],
Cell[CellGroupData[{
Cell[401193, 8514, 118, 2, 33, "Input"],
Cell[401314, 8518, 723, 15, 69, "Print",
 CellTags->"Info3395739510-6287617"]
}, Open  ]],
Cell[402052, 8536, 524, 11, 25, "Text"],
Cell[CellGroupData[{
Cell[402601, 8551, 237, 6, 53, "Input"],
Cell[402841, 8559, 602, 15, 33, "Output"]
}, Open  ]],
Cell[403458, 8577, 550, 14, 44, "Text"],
Cell[404011, 8593, 81, 1, 25, "Text"],
Cell[404095, 8596, 565, 17, 44, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[404697, 8618, 157, 2, 38, "Subsection"],
Cell[404857, 8622, 1850, 33, 138, "Text"],
Cell[406710, 8657, 62, 1, 33, "Input"],
Cell[406775, 8660, 160, 3, 25, "Text"],
Cell[CellGroupData[{
Cell[406960, 8667, 117, 1, 33, "Input"],
Cell[407080, 8670, 111, 2, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[407228, 8677, 106, 1, 33, "Input"],
Cell[407337, 8680, 130, 3, 54, "Output"]
}, Open  ]],
Cell[407482, 8686, 84, 1, 25, "Text"],
Cell[407569, 8689, 82, 1, 25, "Text"],
Cell[407654, 8692, 163, 3, 44, "Text"],
Cell[CellGroupData[{
Cell[407842, 8699, 242, 8, 69, "Input"],
Cell[408087, 8709, 141, 3, 33, "Output"]
}, Open  ]],
Cell[408243, 8715, 117, 3, 25, "Text"],
Cell[CellGroupData[{
Cell[408385, 8722, 51, 1, 33, "Input"],
Cell[408439, 8725, 758, 15, 50, "Print",
 CellTags->"Info3394772873-5908731"]
}, Open  ]],
Cell[409212, 8743, 71, 0, 25, "Text"],
Cell[CellGroupData[{
Cell[409308, 8747, 52, 1, 33, "Input"],
Cell[CellGroupData[{
Cell[409385, 8752, 758, 15, 50, "Print",
 CellTags->"Info3394772896-3192917"],
Cell[410146, 8769, 1191, 34, 62, "Print",
 CellTags->"Info3394772896-3192917"]
}, Open  ]]
}, Open  ]],
Cell[411364, 8807, 99, 1, 25, "Text"],
Cell[CellGroupData[{
Cell[411488, 8812, 71, 1, 33, "Input"],
Cell[CellGroupData[{
Cell[411584, 8817, 758, 15, 50, "Print",
 CellTags->"Info3394772926-6209427"],
Cell[412345, 8834, 1193, 34, 62, "Print",
 CellTags->"Info3394772926-6209427"]
}, Open  ]]
}, Open  ]],
Cell[413565, 8872, 159, 3, 25, "Text"],
Cell[413727, 8877, 99, 2, 33, "Output"],
Cell[413829, 8881, 581, 16, 63, "Text"],
Cell[414413, 8899, 319, 8, 25, "Text"],
Cell[414735, 8909, 129, 2, 25, "Text"],
Cell[414867, 8913, 341, 11, 25, "Text"],
Cell[CellGroupData[{
Cell[415233, 8928, 223, 5, 53, "Input"],
Cell[CellGroupData[{
Cell[415481, 8937, 439, 11, 50, "Print",
 CellTags->"Info3394780796-9401402"],
Cell[415923, 8950, 1941, 31, 164, "Print",
 CellTags->"Info3394780797-1776688"]
}, Open  ]]
}, Open  ]],
Cell[417891, 8985, 141, 3, 25, "Text"],
Cell[CellGroupData[{
Cell[418057, 8992, 174, 5, 33, "Input"],
Cell[418234, 8999, 5733, 101, 301, "Output"]
}, Open  ]],
Cell[423982, 9103, 123, 3, 25, "Text"],
Cell[CellGroupData[{
Cell[424130, 9110, 127, 2, 33, "Input"],
Cell[424260, 9114, 3519, 75, 410, "Output"]
}, Open  ]],
Cell[427794, 9192, 386, 11, 44, "Text"],
Cell[CellGroupData[{
Cell[428205, 9207, 142, 2, 33, "Input"],
Cell[CellGroupData[{
Cell[428372, 9213, 413, 10, 69, "Print",
 CellTags->"Info3395899007-4752452"],
Cell[428788, 9225, 482, 14, 25, "Print",
 CellTags->"Info3395899007-4752452"]
}, Open  ]]
}, Open  ]],
Cell[429297, 9243, 307, 7, 25, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[429641, 9255, 170, 2, 38, "Subsection"],
Cell[429814, 9259, 632, 15, 82, "Text"],
Cell[430449, 9276, 356, 9, 70, "Input"],
Cell[430808, 9287, 363, 6, 44, "Text"],
Cell[431174, 9295, 1068, 28, 119, "Text"],
Cell[432245, 9325, 382, 11, 44, "Text"],
Cell[432630, 9338, 59, 1, 25, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[432738, 9345, 102, 1, 67, "Section"],
Cell[432843, 9348, 414, 9, 82, "Text"],
Cell[CellGroupData[{
Cell[433282, 9361, 127, 2, 33, "Input"],
Cell[433412, 9365, 98, 1, 33, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)